Add a combo box named Combo1 and a label named Label1 then add the following code:
Dim i As Long
Private Sub Combo1_Click()
Label1.Font = Combo1.Text
Label1.Caption = "Sample"
Label1.FontSize = 25
End Sub
Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
End Sub
Comments