[Vb6] Ricavare nome dei font

[Sonic88]

Sì che si può ricavare:

For i = 1 To Screen.FontCount
    Debug.Print Screen.Fonts(i)
Next i

Con questo codice dovrebbe stamparteli nella finestra immediata.