evento de arrastre de imagen vb

Coloque una imagen o imagen, no es necesario cambiar ningún atributo, solo use el siguiente código, se aprobó la depuración de VB6. Las imágenes pueden aceptar imágenes de cualquier objeto, es decir, si hay dos Pictrueboxes que se pueden arrastrar, el que se arrastre obtendrá qué imagen.

'Suelte el mouse antes de disparar. Si desea arrastrar el disparador, use el evento dragOver

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single). )

Image1.Picture = Source.Picture 'El parámetro Fuente representa todos los controles colocados en la imagen arrastrada

set source.Picture = Nothing 'Eliminar la imagen de la otra parte

MsgBox "Listo"

End Sub

Imagen secundaria privada1_MouseDown(Botón como entero, Mayús como entero, X como simple, Y como simple)

Me.Picture1.Drag vbBeginDrag

End Sub

Private Sub Picture1_MouseUp(Botón como entero, Mayús como entero, X como único, Y como único)

Me.Picture1.Drag vbEndDrag

Fin Sub