Option Explicit
 
Dim XPic&, YPic&
 
Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As _
  Integer)
 Select Case Source.Tag
 
   Case "Pic": Image1.Move X - XPic, Y - YPic
 
 End Select
End Sub
 
Private Sub Form_Load()
 
  Image1.Tag = "Pic"
 
End Sub
 
Private Sub Form_DragDrop(Source As Control, X As Single, _
                          Y As Single)
 Select Case Source.Tag
 
   Case "Pic": Image1.Move X - XPic, Y - YPic
 
 End Select
End Sub
 
Private Sub image1_MouseDown(Button As Integer, Shift As _
                               Integer, X As Single, Y As Single)
  Image1.Drag vbBeginDrag
  XPic = X
  YPic = Y
End Sub