Cómo arrastrar controles en vb6
La solución del Networker bryant1976 es:
Establezca el modo de arrastre de la imagen1 en 0 (manual) y defina dos variables para la posición del mouse al comenzar a arrastrar:
Dim cx as Long, cy as Long
Registre la posición actual del mouse en el evento de mousedown de la imagen1 y luego comience a arrastrar:
Imagen1. Mover X - cX, Y - cY
End Sub<. /p>
Subimagen privada1_MouseDown(Botón como entero, Mayús como entero, X como simple, Y como simple)
Imagen1.Dibujo 1