drag&drop

[F_rank_cisco]

Gracias por tu respuesta, pero no funciona, por que al soltar el Picture1, lo desplaza fuera de las coordenadas del ratón.
Y ademas:
Private Sub Picture_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Aquí nunca entra, por lo que este sub no sirve para nada.
If Button = vbLeftButton Then
...........

Private Sub Picture_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Aquí tampoco entra nunca , por lo tanto este tampoco sirve para nada.
......
Yo creo que el problema es que si Picture1.DragMode está en Automatic, estos 2 sub nunca se cumplen. Y si se pone en Manual, si se cumplen, pero da error.
Por que ??