Private Sub Form_Load()
 
 
    ' DLL initialisieren
    On Local Error Resume Next
    Set janConvDLL = CreateObject("janGraphics.Compendium")
    If Err <> 0 Then
      ' DLL erst noch registrieren!
      RegisterFile App.Path & "\janGraphics.dll", True
      Err = 0
      Set janConvDLL = CreateObject("janGraphics.Compendium")
      If Err <> 0 Then
        MsgBox "Fehler!" & vbCrLf & _
          "Die DLL 'jangarphics.dll' konnte nicht initialisiert werden!", _
          vbCritical, "FEHLER!"
        Exit Sub
      End If
    End If
 
 
SavePicture Clipboard.GetData, "c:\test\temp.bmp"
 
 
' Bild konvertieren
Dim sMsg As String
Dim sFile1 As String
Dim sFile2 As String
 
' Ausgangsbild, z.B. "Bitmap"
sFile1 = "c:\test\bild1.bmp"
 
' Zielbild nach JPG, Qualität 70% des Originalbildes
sFile2 = "c:\test\test1.jpg.jpg"
 
sMsg = janConvDLL.ConvertEx(sFile1, sFile2, 0, 0, False, 100)
If sMsg <> "" Then MsgBox "Fehler!" & vbCrLf & sMsg
UnloadForms
End Sub