Segunda solicitud de ayuda, problema de control de arrastre de VB

Este programa puede realizar la función de arrastrar controles dentro o entre ventanas. Cree ventanas form1 y form2, y agregue image1 a ambas ventanas, donde image1.picture bajo form1 es el ícono que desea mostrar.

El código del programa en form1 es: opción explícita

dim dragx as single

dim dragy as single

const begin_drag=1

sub form_dragdrop privado(fuente como control, x como único, y como único)

image1.picture=source //fuente es el control arrastrado, correspondiente a su Imagen1< / p>

form2.image1.picture=loadpicture(″″)

image1.move(x-dragx), (y-dragy); //x, y es el formulario de destino donde se encuentra el se encuentra el mouse o Las coordenadas actuales del control

end sub

private sub form_load()

cargar form2

form2.show 0

end sub

subimagen privada1_mousedown(botón como entero, desplazamiento como entero,

x como único, y como único)

dragx=x

dragy=y

image1.drag comenzar_drag; //Iniciar operación de arrastre

image1.dragicon = loadpicture("El cursor que desea mostrar cuando se presiona el mouse")

end sub.

El código del programa en form2 es:

opción explícita

dim dragx como único

dim dragy como único

const begin_drag=1

sub form_dragdrop privado(fuente como control, x como único, y como único)

image1.picture=fuente

form1.image1.picture=loadpicture(″″)

image1.move(x－dragx), (y－dragy)

end sub

subimagen privada1_mousedown(botón como entero, desplazamiento como entero,

x como único, y como único)

dragx=x

dragy =y

image1.drag comenzar_drag

image1.dragicon=loadpicture("El cursor que desea mostrar cuando se presiona el mouse" )

fin del sub