Private Sub Command1_Click()

'/ Ändrar fonten samt texten till det valda fontnamnet
Text1.FontName = Combo1.Text
Text1.Text = Combo1.Text

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

'/ Adderar alla fonter till combo1.
'/ Se! en liten anorlunda teknik med att använda hDC
Combo1.Clear

Dim hDC As Long
hDC = GetDC(Combo1.hWnd)
EnumFontFamilies hDC, vbNullString, AddressOf EnumFontFamDisplayProc, Combo1
ReleaseDC Combo1.hWnd, hDC

'/ Visar det fontnamn du vill börja med
Text1.FontName = Combo1.List(0)
Combo1.Text = Text1.FontName

End Sub