#Region "Mouse Event mit RubberBand"
    Private Sub picBox_OnMouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        ' MessageBox.Show("Jetzt ein Rechteck zeichnen")
        'TODO:hier muss die bildX_SelectionRectDrawn aufgerufen werden.
        If ((e.Button & MouseButtons.Left) > 0) Then  '// linke Maustaste?      
 
            RubberBand.Location = PointToScreen(New Point(e.X, e.Y))
            RubberBand.Location = Control.MousePosition
        End If
 
    End Sub
    Private Sub picBox_OnMouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If ((e.Button & MouseButtons.Left) > 0) Then
        End If
        If (Me.ClientRectangle.Contains(New Point(e.X, e.Y))) Then
            ControlPaint.DrawReversibleFrame(RubberBand, Me.BackColor, _
              FrameStyle.Dashed)
            RubberBand.Size = CType(Control.MousePosition, Size) - CType( _
            RubberBand.Location, Size)
            RubberBand.Size = CType(PointToScreen(New Point(e.X, e.Y)), Size) - _
            CType(RubberBand.Location, Size)
            ControlPaint.DrawReversibleFrame(RubberBand, Me.BackColor, _
            FrameStyle.Dashed)
            Text = RubberBand.ToString()
        End If
    End Sub
 
    Private Sub picBox_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        If ((e.Button & MouseButtons.Left) > 0) Then
            ControlPaint.DrawReversibleFrame(RubberBand, Me.BackColor, _
              FrameStyle.Dashed)
            RubberBand.Size = New Size(0, 0)
        End If
    End Sub
    Private Sub Picture1_MouseMove(ByVal Button As Integer, ByVal Shift As _
      Integer, ByVal X As Single, ByVal Y As Single)
        ' If Button = Then
 
        ' End If
    End Sub
#End Region