Console.WriteLine(mFontFamily.Name)
Next
End Sub
Console.WriteLine(mFontFamily.Name)
Next
End Sub

Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mPrivateFontCollection As New Drawing.Text.PrivateFontCollection
mPrivateFontCollection.AddFontFile("..\..\Visualui.TTF")
End Sub
Private gPrivateFontCollection As Drawing.Text.PrivateFontCollection