vb6
'zobraziteľné fonty
For i = 0 to Screen.FontCount
   Debug.Print Screen.Fonts (i)
Next i
'tlačiteľné fonty
For i = 0 to Printer.FontCount
   Debug.Print Printer.Fonts (i)
Next

vb.net
Dim ff As FontFamily, start, a As Integer, meno As String
start = 0 : a = 0
For Each ff In System.Drawing.FontFamily.Families
    Console.WriteLine (ff.Name & vbCrLf)
Next