Line Drawing with the help of Mouse

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Form1.CurrentX = X
Form1.CurrentY = Y

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y)
End If


End Sub