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
public class 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