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 Button1.Click
        Dim Retval As Long
 
        Retval = AddFontResource("D:\DIGITALDREAM.TTF")
        If Retval = 0 Then
            MsgBox("Die Funktion ist gescheitert", vbCritical, "Fehler")
        Else
            MsgBox("Es wurden " & Retval & " Font(s) hinzugefügt.", _
              vbInformation, "Font(s) hinzugefügt")
        End If
    End Sub

mfgMeik MillerMein beste Code:If then