Private Sub Form_Load()
  Dim i As Long
  For i = 0 To Screen.FontCount - 1
    Debug.Print Screen.Fonts(i)
    Combo1.AddItem Screen.Fonts(i), i
  Next i
End Sub
Private Sub Combo1_Click()
  Debug.Print Screen.Fonts(Me.Combo1.ListIndex)
End Sub