Private Declare Function AddFontResource Lib "gdi32.dll" _
      Alias "AddFontResourceA" (ByVal lpFileName As String) _
      As Long
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        Dim appPath = System.Windows.Forms.Application.StartupPath & "\" & _
        "ChemistryGlyphs.ttf"
        Dim retval As Long
 
        retval = AddFontResource(appPath)
        If retval = 0 Then
            MsgBox("Die Funktion ist gescheitert", vbCritical, "Fehler")
        Else
            MsgBox("Es wurden " & appPath & " Font(s) hinzugefügt.", _
              vbInformation, "Font(s) hinzugefügt")
        End If
    End Sub