Private startPt, endpt As Point
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            startPt = PictureBox1.PointToScreen(e.Location)
        End If
    End Sub
 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
 
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If endpt = Nothing Then
                endpt = PictureBox1.PointToScreen(e.Location)
            End If
            ControlPaint.DrawReversibleFrame(New Rectangle(startPt.X, _
              startPt.Y, endpt.X - startPt.X, endpt.Y - startPt.Y), _
              Color.Orange, FrameStyle.Dashed)
            endpt = PictureBox1.PointToScreen(e.Location)
            ControlPaint.DrawReversibleFrame(New Rectangle(startPt.X, _
              startPt.Y, endpt.X - startPt.X, endpt.Y - startPt.Y), _
              Color.Orange, FrameStyle.Dashed)
        End If
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus