Controlli - Inserire A Run-time I Nomi Dei Font's Disponibili

Combo # Dim I As Integer
For I = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next I