Private Sub bildX_SelectionRectDrawn(ByVal Left As Long, ByVal Top As Long, _
  ByVal Width As Long, ByVal Height As Long)
'dieses Ereignis wird ausgelöst, wenn eine Markierung auf dem Bild gemacht wurde
On Error GoTo endz
 
        Me.BildX.DrawSelectionRect Left, Top, Width, CLng(Width * 1.2) _
          'Markierung wird korrigiert: Höhe wird auf das 1,2-fache der Breite 
        ' gesetzt
        Me.BildX.ClipboardCopy 'der Auschnitt wird kopiert
        Me.BildX.DisplayBlankImage 250, 300, , , 6 'ein leeres Bild wird 
        ' eingefügt
        Me.BildX.ClipboardPaste 'der Inhalt der Zwischenablage wird in das 
        ' leere Bild eingefügt
        Me.BildX.fitto 0
        Me.txtPrnr.SetFocus
 
Exit Sub
endz:
If Err.Number = 1020 Then MsgBox "Nochmal markieren!", vbCritical, "Fehler"
End Sub