Imagen VB
'Respuesta: Baidu HI Group & Fit Programming Society 1195277
Privado
Sub
Imagen1_MouseDown(Botón
Como
Entero,
Mayús
Como
Entero,
X
Como
Único,
Y
Como
Único)
Si
Botón
=
2
Y
Imagen1.Izquierda
<
6000
Luego
Para
i
=
Imagen1.Izquierda
A
6000
Imagen1.Izquierda
=
i
+
100
Siguiente
Else
MsgBox
"Debido a que la izquierda de la imagen 1 ha llegado a
6000, entonces el control del botón no es válido"
End
If
End
Sub