You using the Fonts that are installed on the machine running your program.
Code:
Private Sub Form_Load()
    Dim i As Long
    For i = 0 To Screen.FontCount - 1
        Combo1.AddItem Screen.Fonts(i)
    Next 
    Combo1.ListIndex = 0
End Sub