
Private Sub GetFontFamilyName()Sub GetFontFamilyName(ByVal sender As Drawing.FontFamily)
Console.WriteLine(sender.Name)
End Sub

Private Sub GetFontFamilyName()Sub GetFontFamilyName(ByVal sender As Drawing.FontFamily)
Console.WriteLine(sender.Name)
End Sub
以上代码是Net2.0的。当然,也可以这般实现:

Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mFontCollection As New Drawing.Text.InstalledFontCollection
For Each mFontFamily As FontFamily In mFontCollection.Families