Private Sub suche1_Click()
Dim janConvDLL As Object
Dim pfad As Variant
Dim datei As Variant
Dim Endung As Variant
 
 
Set janConvDLL = CreateObject("janGraphics.Compendium")
 
 
pfadpr = "C:\Programme\bilder\"
 
datei = fzg
Endung = "_1.jpg"
 
 Dim Dialog As Object
 
 
  With offnenbild1
    .CancelError = False
    .MaxFileSize = 260
    .Filter = "Bilder (*.bmp,*.gif,*.jpg,*.png)|*.bmp;*.gif;*.jpg;*.png"
    .DialogTitle = "Bild auswählen"
    .ShowOpen
    If Err = 0 And Not .FileName = "" And Not fzg.Text = "" Then
 
           sfile1 = .FileName
           sfile2 = pfadpr & datei & Endung
 
sMsg = janConvDLL.ConvertEx(sfile1, sfile2, 250, 187, False, 100)
If sMsg <> "" Then MsgBox "Fehler!" & vbCrLf & sMsg
 
txtbild1 = datei & Endung
 
Image1(0).Picture = LoadPicture(sfile2)
 
            Else
 
            txtbild1 = ""
 
    End If
 
 
 
  End With
End Sub