[VB6] Elenco font

[minoz]

Qualcuno saprebbe come ottenere l'elenco dei font disponibili sul computer tramite codice vb?

[xegallo]

Private Sub Form_Load()
Dim i As Integer
    For i = 1 To Printer.FontCount - 1
        List1.AddItem Printer.Fonts(i)
    Next i
End Sub

[mardok30]

Od anche:

For i = 0 To Screen.FontCount - 1
     list1.AddItem Screen.Fonts(i)
Next i

CIAO

[minoz]

OK grazie mille!