Dim tx As Long Dim ty As Long Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then tx = X ty = Y End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Sin