'Benötigt werden: 2 * Picturebox, 1 Label
Option Explicit
Private XPos!, YPos!
 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  XPos = X
  YPos = Y
  Label1.Drag vbBeginDrag
End Sub
 
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
  Set Source.Container = Picture1
  Source.Move X - XPos, Y - YPos
End Sub
 
Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
  Set Source.Container = Picture2
  Source.Move X - XPos, Y - YPos
End Sub