Draw a Rubber Band Rectangle

Draw a Rubber Band Rectangle Microsoft Corporation Draws a rubber band rectangle on the form. drawBand

System.Windows.Forms System.Drawing Microsoft.VisualBasic System.Drawing System.Windows.Forms

 -1 Then
        Dim currentPoint As New Point(e.X, e.Y)
        MyDrawReversibleRectangle(originalPoint, lastPoint)
    End If

    lastPoint.X = -1
    lastPoint.Y = -1
    originalPoint.X = -1
    originalPoint.Y = -1

End Sub

Public Sub MyMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove

    Dim currentPoint As New Point(e.X, e.Y)

    If mouseIsDown Then

        If lastPoint.X <> -1 Then
            MyDrawReversibleRectangle(originalPoint, lastPoint)
        End If

        lastPoint = currentPoint
        MyDrawReversibleRectangle(originalPoint, currentPoint)
    End If

End Sub

Protected Overrides Sub OnLoad(ByVal e As EventArgs)
    mouseIsDown = False
End Sub]]>