Private Enum Status
  OK = 0
  GenericError = 1
  InvalidParameter = 2
  OutOfMemory = 3
  ObjectBusy = 4
  InsufficientBuffer = 5
  NotImplemented = 6
  Win32Error = 7
  WrongState = 8
  Aborted = 9
  FileNotFound = 10
  ValueOverflow = 11
  AccessDenied = 12
  UnknownImageFormat = 13
  FontFamilyNotFound = 14
  FontStyleNotFound = 15
  NotTrueTypeFont = 16
  UnsupportedGdiplusVersion = 17
  GdiplusNotInitialized = 18
  PropertyNotFound = 19
  PropertyNotSupported = 20
  ProfileNotFound = 21
End Enum
 
Private Declare Function GdipLoadImageFromFile Lib "gdiplus" _
  (ByVal FileName As Long, ByRef image As Long) As Status

Public Sub Save_JPG( _
  QuellPfad As String, _
  ByVal FileName As String, _
  Optional ByVal quality As Byte = 200)

    lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap)

    lRes = GdipLoadImageFromFile(StrPtr(QuellPfad), lBitmap)

Gruss,

Zardoz