کد رسم مستطیل با ماوس

[antisocial]

با سلام
دوستان کسی برنامه ی رسم مستطیل با ماوس رو نداره؟
اگر ممکنه کدش رو بذارین
با تشکر
:لبخند:

[Hajar_Nazari]

Public Class Form2

Dim RcDraw As Rectangle
Dim PenWidth As Integer = 2
Dim redBrush As New SolidBrush(Color.Red)

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
e.Graphics.DrawRectangle(New Pen(Color.Blue, PenWidth), RcDraw)
End Sub

Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
If e.X < RcDraw.X Then
RcDraw.Width = RcDraw.X - e.X
RcDraw.Width = e.X
Else
RcDraw.Width = e.X - RcDraw.X
End If
If e.Y < RcDraw.Y Then
RcDraw.Height = RcDraw.Y - e.Y
RcDraw.Y = e.Y
Else
RcDraw.Height = e.Y - RcDraw.Y
End If
Me.Invalidate(RcDraw)

End Sub

Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
RcDraw.X = e.X
RcDraw.Y = e.Y
End Sub
End Class