Построение ломанной линии с использованием мыши - VB

Формулировка задачи:

Доброго время суток всем. Помогите мне, пожалуйста, с таким вопросом. Ситуация следующая...Есть форма на которой уже построена система координат, где левый верхний угол место нуля. 1. Как можно при помощи мыши строить на данной форме ломанную таки образом, чтобы при перемещении свободного конца новой линии прописывались координаты. И при этом ломанная линия не может выходить за пределы системы координат. 2. И каким образом можно прекратить режим рисования ломанной линии (использования мыши в качестве рисования ломанной линии). Вот я тут пытался сделать то о чём я писал выше, но возникает оч много линий =(

Option Explicit
Dim koor_x As Double, koor_y As Double
Dim klava As Boolean
Dim p() As Integer, n As Integer, i As Integer
Dim x1 As Integer, x2 As Integer
Dim y1 As Integer, y2 As Integer
Private Form
Private Sub Form_Load()
x1 = 0
y1 = InputBox("Введите высотную отметку - y1")
End Sub
Private Sub Form_MouseMove(button As Integer, Shift As Integer, X As Single, y As Single)
    x2 = X
    y2 = Int(y / 25) * 25
    Line (x1, y1)-(x2, y2)
    Form1.CurrentX = x2
    Form1.CurrentY = y2
    'Print y2
End Sub
Private Sub form_MouseDown(button As Integer, Shift As Integer, X As Single, y As Single)
    x2 = X
    y2 = y
    Line (x1, y1)-(x2, y2)
    x1 = x2
    y1 = y2
    Form1.CurrentX = x2
    Form1.CurrentY = y2
    Print y2
End Sub

Заранее всем спасибо, кто откликнулся.

Решение задачи: «Построение ломанной линии с использованием мыши»

textual
                            Листинг программы 
                        

                                ForeColor = &H8000000F
    Print y2
    ForeColor = RGB(0, 0, 0)
    y2 = Int(Y / 25) * 25
     Print y2
                        