der folgende Code - übrigens aus der MSDN entnommen - listet Dir sämtliche verfügbaren Schriften auf Deiner Form auf:

Private Sub Form_Click ()
   Dim I As Integer
   For i = 0 To Screen.FontCount
      Print Screen.Fonts(i)
   Next
End Sub

cu
Moni