EnumFonts

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

'Per cambiare il font di un controllo quindi,

'utilizzare la seguente procedura


Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub