Private Const HWND_BROADCAST = &HFFFF&
    Private Const WM_FONTCHANGE = &H1D
    Private Declare Function AddFontResource Lib "gdi32" Alias _
                         "AddFontResourceA" (ByVal lpFileName As String) As _
                         Integer
 
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                         (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal _
                         wParam _
                                 As Integer, ByVal lParam As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim ret As Integer
        MsgBox(System.Windows.Forms.Application.StartupPath)
        ret = AddFontResource(System.Windows.Forms.Application.StartupPath & _
          "\ChemistryGlyphs.ttf")
        If ret > 0 Then
            SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
        End If
    End Sub

mfgMeik MillerMein beste Code:If then