BUEN DIA COLEGA, ES MUY FACIL HACER LO Q PIDES SOLO HAY Q VER Q ES LO Q NOS DA EL SUB DEL IMAGE VEAMOS:
Index As Integer.- Un entero que identifica de manera única a un control si está en unamatriz de controles.
Button As Integer.-Un entero que corresponde al estado de los botones del mouse en el cual un bit se establece si el botón está presionado. El argumento botón es un campo de bit con los bits correspondientes al botón primario (bit 0), al botón secundario (bit 1) y al botón central (bit 2). Estos bits corresponden a los valores 1, 2 y 4, respectivamente. Indica el estado completo de los botones del mouse; alguno, todos o ninguno de estos tres bits puede estar establecido, lo que indica que algunos, todos o ninguno de los botones está presionado.
Shift As Integer.-Un entero que corresponde al estado de las teclas MAYÚS, CTRL y ALT. Un bit está establecido si la tecla está presionada. El argumento mayús es un campo de bits con los bits menos significativos correspondientes a la tecla MAYÚS (bit 0), CTRL (bit 1) y ALT (bit 2 ). Estos bits corresponden a los valores 1, 2 y 4, respectivamente. El argumento mayús indica el estado de estas teclas. Alguno, todos o ninguno de los bits puede estar establecido, lo que indica que alguna, todas o ninguna de las teclas está presionada. Por ejemplo, si se presionaron las teclas CTRL y ALT, el valor de shift sería 6.
X As Single, Y As Single.-Un número que especifica la ubicación actual del puntero del mouse. Los valores x e y siempre se expresan en términos del sistema de coordenadas establecido por las propiedades ScaleHeight, ScaleWidth, ScaleLeft y ScaleTop del objeto.
TENIENDO ESTO LO Q NECESITAMOS ES HACER UN CASE CON EL INDEX Y LISTO
Private Sub image_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
SELECT CASE INDEX
CASE 0
CASE1
CASE2
.
.
.
.
.
End Sub
SUERTE