Public XPos
Public YPos
 
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - XPos, Y - YPos
End Sub
 
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
XPos = X
YPos = Y
 
Debug.Print "---------"
Debug.Print XPos
Debug.Print YPos
 
Picture1.Drag vbBeginDrag
End Sub

Ein Computer wird immer das tun, was du programmierst, nicht, was du willst.