En un formulario definimos :

Private PosX As Single
Private PosY As Single

En el evento Mouse_Down del control que queremos mover :

   'Si es el boton derecho del reton no hacemos nada
   If Button = 2 Then Exit Sub
   MICONTROL.Drag 1
   PosX = X
   PosY = Y

En el evento MouseUp del control que queremos mover :

   MICONTROL.Drag 2

Y en el evento DragDrop del formulario :

  Source.Move (X - PosX), (Y - PosY)