Is there a way to find the fonts names?

Hey Phil, thanks!

I found a way to avoid the problem, of course it’s not perfect since I lost a huge amount of possible fonts…

Basically, in the random font select, I do:

. ReselectFont
…
Randomselectcode…
…
If FontName$(fonttest) = "Arial" Then
Goto ReselectFont
End If

If the loaded font isn’t good, it will reset to “Arial” so it gives me another chance to pick a new one, not perfect, but working :)