[Vb6] Ricavare nome dei font

[Luck Floyd]

E' possibile ricavare tutti i nomi dei font istallati sulla macchina via codice?

Grazie!

[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.

[Luck Floyd]

Grazie Mille....