Private Sub picFloorplan_DragDrop(Source As Control, X As Single, Y As Single)


Source.Move X, Y 'X - MouseX, Y - Mouse y

picFloorplan.Line (X, Y)-(X + 4000, Y), vbRed 'Drawing the first line (right)
picFloorplan.Line (X, Y)-(X - 4000, Y), vbRed 'Drawing the 2nd line (left)
picFloorplan.Line (X, Y)-(X, Y - 4000), vbYellow 'Drawing the vertical line (Up)
picFloorplan.Line (X, Y)-(X, Y + 4000), vbYellow 'Drawing the vertical line(down)
picFloorplan.Line (X, Y)-(X + 1500, Y - 1000), vbBlue 'Drawing the top right
picFloorplan.Line (X, Y)-(X + 1500, Y + 1000), vbBrown 'Drawing the bottom right
picFloorplan.Line (X, Y)-(X - 1500, Y - 1000), vbBrown 'Drawing the top left
picFloorplan.Line (X, Y)-(X - 1500, Y + 1000), vbBlue 'Drawing the bottom left


End Sub

This is my program

I need help in "drawing the top right Line", how do i extend the line while using the same coordinate.

Thank you.