Dim X1 As Single, Y1 As Single, X2 As Single, Y2 As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
‘Refresh your start variables
X1 = X
Y1 = Y
X2 = X
Y2 = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y...