Binaryworld - IsFontInstalled - Test whether a font name and size is supported ... [ VB.net -> Windows ]

' Test whether a font name and size is supported
' Returns True if the font is supported, False otherwise
'
' If the font is supported but the size is not, it returns the actual font size
' in the second argument
' If the font isn't supported, it return the system font name and size in the
' two arguments.
'
' Example:
' Dim fontName As String = "Times New Roman"
' Dim fontSize As Single = 48
' Debug.WriteLine(IsFontInstalled(fontName, fontSize))
' Debug.WriteLine(fontName & " - " & fontSize)
'
' fontName = "Not a valid font, of course!"
' Debug.WriteLine(IsFontInstalled(fontName, fontSize))
' Debug.WriteLine(fontName & " - " & fontSize)

Function IsFontInstalled(ByRef fontName As String, Optional ByRef fontSize As _
  Single = 8) As Boolean
  Try
    Dim fnt As New Font(fontName, fontSize)
    IsFontInstalled = (fnt.FontFamily.Name = fontName)
    fontName = fnt.FontFamily.Name
    fontSize = fnt.Size
  Catch e As Exception
    Return False
  End Try
End Function