EnumFont (2)

'la selezione


Private Sub Form_Load()

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

End Sub

'Per cambiare il font di un controllo quindi utilizzare la seguente procedura


Private Sub Combo1_Click()

Text1.FontName = Combo1.Text

End Sub