Public xPos, yPos


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


If Button = 1 Then Me.Line (X, Y)-(xPos, yPos), RGB(0, 255, 255)


End Sub


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


xPos = X


yPos = Y


End Sub