Private Function getFileAsFont(ByVal fontfile As String) As Font
        Dim myFonts As New Drawing.Text.PrivateFontCollection
        Dim mFontObject As System.Drawing.Font
        myFonts.AddFontFile(fontfile)
        mFontObject = getFontByStyle(myFonts.Families(0))
        myFonts.Dispose()
        Return mFontObject
    End Function
 
    Private Function getFontByStyle(ByVal oFamily As FontFamily) As Font
        Dim oFont As Font
        ' Neues Schrift-Objekt erzeugen und verfügbare Styles berücksichtigen
        If oFamily.IsStyleAvailable(FontStyle.Regular) Then
            oFont = New Font(oFamily.Name, 10.0, FontStyle.Regular, _
              System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        ElseIf oFamily.IsStyleAvailable(FontStyle.Italic) Then
            oFont = New Font(oFamily.Name, 10.0, FontStyle.Italic, _
              System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        ElseIf oFamily.IsStyleAvailable(FontStyle.Bold) Then
            oFont = New Font(oFamily.Name, 10.0, FontStyle.Bold)
        ElseIf oFamily.IsStyleAvailable(FontStyle.Underline) Then
            oFont = New Font(oFamily.Name, 10.0, FontStyle.Underline, _
              System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        ElseIf oFamily.IsStyleAvailable(FontStyle.Strikeout) Then
            oFont = New Font(oFamily.Name, 10.0, FontStyle.Strikeout, _
              System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Else
            oFont = Nothing
        End If
        Return oFont
    End Function