With Picture1
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .PaintPicture LoadPicture("C:\EinBild.bmp"), 0, 0, AusschnittBreite, _
    AusschnittHöhe, XPos, YPos, AusschnittBreite, AusschnittHöhe
  SavePicture .Image, "C:\NeuesBild.bmp"
End With

Gruss,

Zardoz