Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And vbLeftButton Then mX = X mY = Y End If End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And vbLeftButton Then Me.Move Me.Left - mX + X, Me.Top - mY + Y End If End Sub '