Mira:
Código VB:
Ver originalPrivate Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ruta1 = "d:\Pimage1.jpg"
ruta2 = "d:\Pimage2.jpg"
If eruta = 1 Then
eruta = 2
Image1.Picture = LoadPicture(ruta2)
ElseIf eruta = 2 Then
eruta = 1
Image1.Picture = LoadPicture(ruta1)
End If
End Sub
No tengo placa de video. Pero te cuento que es lo que ocurre conmigo:
Cuando salgo del command button, cambia la imagen, cuando entro y me muevo por dentro de la "zona" del button la imágen permanece intacta y no cambia.