Dim XX As Integer, YY As Integer

 

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

XX = X

YY = Y

 

End Sub

 

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

If Button = vbLeftButton Then

Dim E As Integer, F As Integer

E = X - XX

F = Y - YY

Me.Left = Me.Left + E

Me.Top = Me.Top + F

End If

End Sub