MoveFormNoTB

Dim cx As Single
Dim cy As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cx = X
cy = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Me.Top = Me.Top + Y - cy: Me.Left = Me.Left + X - cx
End Sub