Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
myX = X
myY = Y
fX = Form1.Left
fY = Form1.Top
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Form1.Left = Form1.Left + X - myX
Form1.Top = Form1.Top + Y - myY
End If
End Sub