Dim Links As Long
    Dim Oben As Long
    Dim Breite As Long
    Dim Hoehe As Long
 
    ' Bildausschnitt-Positionen aus Picture1
    Links = 500
    Oben = 400
    Breite = 1500
    Hoehe = 2000
 
    ' Größe von Picture2 dem Bildausschnitt anpassen
    Picture2.Width = Breite
    Picture2.Height = Hoehe
 
    ' Picture2 zeichnen
    Picture2.AutoRedraw = True
    Picture2.PaintPicture Picture1.Picture, 0, 0, , , Links, Oben, Breite, Hoehe
    Picture2.AutoRedraw = False
 
    ' Picture2 als Bitmap speichern
    SavePicture Picture2.Image, "c:\test-test.bmp"