RE:Mover una imagen con el mouse
Este código te permite mover el control por el formulario y lo posiciona correctamente.
________________________________________________________
Option Explicit
DefLng A-Z
Private mx As Single, my As Single
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
With Image1
.Drag vbEndDrag
.Move X - mx, Y - my
End With
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Drag vbBeginDrag
mx = X: my = Y
End Sub
________________________________________________________
Espero que te sirva
Saludos Ruri