codice:
Public globalX As Integer
Public globalY As Integer

Private Sub Form_DragDrop(Source As Control, X As _
   Single, Y As Single)
   Image1.Move X - globalX, Y - globalY
End Sub

Private Sub image1_MouseDown(Button As Integer, _
   Shift As Integer, X As Single, Y As Single)
   Image1.Drag vbBeginDrag
   globalX = X
   globalY = Y
End Sub