bilder resizen und speichern->problem!

[Goltergaul]

Hi ich hab ein Problem ich resize ein Bild mit PicturePaint aber ich kann es nicht speichern *verzweifelt bin*
hier mein Code:

Dim Path$, Quality%, JPG As New cDIBSection 
    'vorschaubild: 
    Path = App.Path & "\output\" & Counter & "_k.jpg" 
    picture_mini1.Picture = LoadPicture(App.Path & "\convert\" & dat) 
    imagebox1.PaintPicture picture_mini1, 0, 0, 1200, 1200 
    imagebox1.Refresh 
     JPG.CreateFromPicture imagebox1.Picture 
    
    Quality = HScroll1.Value 
    If SaveJPG(JPG, Path, Quality) Then 
      imagebox2.Picture = LoadPicture(App.Path & "\convert\" & dat) 
    Else 
      Call MsgBox("Fehler beim Erstellen", vbExclamation) 
    End If 
    'ende

Ich habe keine ahnung warum das nicht geht :/ Es kommt andauernd die Meldung "Fehler beim Erstellen"

Schonmal danke für eure Hilfe

 

[kermitfrosch]

Wie wird denn das Bild gespeichert?
Den Code von SaveJPG solltest Du schon posten.
Was ist cDIBSection?

Jens