Draw and Click a Line on PictureBox

[kam45]

I did one program that draws a line with two squares at the ends and I can just click and extend each ends. It works ok but I need to move the whole line. Would anyone knows how?

Private Const gs As Integer = 34
Private Const hw As Integer = 6
Private Const hhw As Integer = hw \ 2
Private bf As Bitmap
Private drag As Integer = -1
Private pts() As Point
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
ReDim pts(1)
pts(0).X = 50 : pts(0).Y = 50
pts(1).X = 250 : pts(1).Y = 50
For i As Integer = 0 To UBound(pts)
SnapToGrid(pts( i).X, pts(i).Y)
Next
End Sub
Private Sub Draw(ByVal Gr As Graphics)
Gr.DrawImage(bf , 0, 0)
Gr.DrawPolygon( Pens.Black, pts)

Dim rect() As Rectangle
ReDim rect(UBound(pts ))
For i As Integer = 0 To UBound(pts)
rect(i).X = pts(i).X - hhw
rect(i).Y = pts(i).Y - hhw
rect(i).Width = hw
rect(i).Height = hw
Next
Gr.FillRectangl es(Brushes.Beig e, rect)
Gr.DrawRectangl es(Pens.Black, rect)
End Sub
Private Sub pic_MouseDown(B yVal sender As Object, ByVal e As System.Windows. Forms.MouseEven tArgs) Handles pic.MouseDown
For i As Integer = 0 To UBound(pts)
If Abs(pts(i).X - e.X) < hhw And Abs(pts(i).Y - e.Y) < hhw Then
drag = i
pic.Cursor = Cursors.Hand
Exit For
End If
Next

End Sub
Private Sub pic_MouseMove(B yVal sender As Object, ByVal e As System.Windows. Forms.MouseEven tArgs) Handles pic.MouseMove
If drag = -1 Then Exit Sub
pts(drag).X = e.X
pts(drag).Y = e.Y
SnapToGrid(pts( drag).X, pts(drag).Y)
Draw(pic.Create Graphics)
End Sub
Private Sub pic_MouseUp(ByV al sender As Object, ByVal e As System.Windows. Forms.MouseEven tArgs) Handles pic.MouseUp
drag = -1
pic.Cursor = Cursors.Default
End Sub
Private Sub pic_Paint(ByVal sender As Object, ByVal e As System.Windows. Forms.PaintEven tArgs) Handles pic.Paint
Draw(e.Graphics )
End Sub
Private Sub SnapToGrid(ByRe f x As Integer, ByRef y As Integer)
x = gs * CInt(x / gs)
y = gs * CInt(y / gs)
End Sub
Private Sub DrawGrid(ByVal bm As Bitmap)
For x As Integer = 0 To pic.Width - 1 Step gs
For y As Integer = 0 To pic.Height - 1 Step gs
bm.SetPixel(x, y, Color.Black)
Next
Next
End Sub
Private Sub pic_Resize(ByVa l sender As Object, ByVal e As System.EventArg s) Handles pic.Resize
bf = New Bitmap(pic.Widt h, pic.Height)

Dim Gr As Graphics = Graphics.FromIm age(bf)
Gr.Clear(pic.Ba ckColor)
For x As Integer = 0 To pic.Width - 1 Step gs
For y As Integer = 0 To pic.Height - 1 Step gs
bf.SetPixel(x, y, Color.Black)
Next
Next
End Sub