Imports System.Globalization
Imports System.Text
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Drawing
Imports System.Drawing.Text
Imports System
publicclass Tester
public Shared Sub Main
Dim family As FontFamily
Dim installedFonts As InstalledFontCollection = New InstalledFontCollection()
For Each family In installedFonts.Families
Console.WriteLine(family.Name)
Next family
End Sub
End class