Dim l&, t&
 
Private Sub imgPic_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
    l = X    'position merken
    t = Y
    imgPic.Drag 1
End Sub
 
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
 
    'neu positionieren
    imgPic.Left = X - l
    imgPic.Top = Y - t
 
End Sub