' Controls: 2*Image, 1*Picturebox
' Image1: Quellbild
 
Dim XPos&, YPos&, Breite&, Höhe&
 
XPos = 50 ' X-Position des Ausschnitts
YPos = 70 ' Y-Position des Ausschnitts
Breite = 200 ' Breite des Ausschnitts
Höhe = 100 ' Höhe des Ausschnitts
 
Me.ScaleMode = vbPixels
With Picture1
  .Visible = False
  .ScaleMode = vbPixels
  .BorderStyle = vbBSNone
  .Move 0, 0, Breite, Höhe
  .AutoRedraw = True
  .Cls
  .PaintPicture Image1.Picture, 0, 0, Breite, Höhe, XPos, YPos, Breite, Höhe
  Set Image2.Picture = .Image
End With

Gruss,

Zardoz