Imports System
Imports System.Windows.Forms
Imports System.Drawing.Text
Imports System.Drawing
Public Class MainClass
Shared Sub Main(ByVal args As String())
' Get the installed fonts collection.
Dim installed_fonts As New InstalledFontCollection
' Get an array of the system's font familiies.
Dim font_families() As FontFamily = installed_fonts.Families()
' Display the font families.
For Each font_family As FontFamily In font_families
Console.Write (font_family.Name & ", ")
Next font_family
End Sub
End Class