Move a control at run time

**Guido Geurs** · Mar 1 '12, 02:55 PM

This will place a "Size" cursor and drag the command.

Code:

Dim MOUSEdownX As Integer
Dim MOUSEdownY As Integer

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   MOUSEdownX = X
   MOUSEdownY = Y
   Command1.MousePointer = vbSizePointer
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then
      With Command1
         .Left = .Left - MOUSEdownX + X
         .Top = .Top - MOUSEdownY + Y
      End With
   End If
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Command1.MousePointer = vbDefault
End Sub

**Mihail** · Mar 1 '12, 03:40 PM

Thank you, Guido !
I don't try yet but I think that your code will do the job by using the mouse.

I think I know now how to move the control using keyboards too.
Thank you again !

Move a control at run time

Move a control at run time

Comment

Comment