Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Option Explicit Dim xpos As Integer Dim ypos As Integer
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) xpos = X ypos = Y End Sub
Private Sub Command1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button > 0 Then Command1.Move Command1.Left + X - xpos, Command1.Top + Y - ypos End If End Sub