'Sub Main() ' Using F As Drawing.FontFamily = New Drawing.FontFamily("MS Gothic") ' For i As Integer = 0 To Integer.MaxValue ' Console.WriteLine(F.GetName(i)) ' Next ' Console.Read() ' End Using 'End Sub Sub Main() Using F As Drawing.FontFamily = Drawing.SystemFonts.DefaultFont.FontFamily For i As Integer = 0 To Integer.MaxValue Console.WriteLine(F.GetName(i)) Next Console.Read() End Using End Sub