CodeItBetter Programming Another VB Programming Blog

'Fonts - How to Add all available fonts to a combo box control.
'Assume that you have a combobox named combo1 in form1. Then all you have to do
'is insert the following lines in th load event of the form1.

Private Sub Form_load()
    Dim f As Long
    Combo1.Clear
    For f = 0 To VB.Screen.FontCount - 1
        Combo1.AddItem VB.Screen.Fonts(f)
    Next f
End Sub