CodeItBetter Programming Another VB Programming Blog

'Controls - How to Drag controls even at Runtime
Option Explicit
 
'Open a new project and insert a command button and insert the following code and
'try dragging the command button at run time

Private Sub Form_Activate()
    Command1.DragMode = vbAutomatic
End Sub
 
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    If TypeOf Source Is CommandButton Then
        Command1.Left = X
        Command1.Top = Y
    End If
End Sub