How to Find installed fonts in a computer usign vb.net ?

Imports System.Text
Imports System.Drawing.Text
Imports System.Drawing

Protected Sub Page_Load(sender As Object, e As EventArgs)
	Dim fontList As New InstalledFontCollection()
	Dim sb As New StringBuilder()

	For Each Family As FontFamily In fontList.Families
		sb.Append(Family.Name + "<br/>")
	Next

	Response.Write(sb.ToString())
End Sub