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
