Tengo un inconveniente estoy realizando un pacman
en visual basic de excel
, lo que tengo es que cuando aprieto las teclas se me mueve el pacman osea la imagen.
Tengo problemas para el asunto de los muros, el código lo tengo hasta el momento así
Select Case KeyCode
Case 37 'izquierda
pacmann.Left = pacmann.Left - 10
Case 38 'arriba
pacmann.Top = pacmann.Top - 10
Case 39 'derecha
pacmann.Left = pacmann.Left + 10
Case 40 'abajo
If (Label19.Top <> 222) Then
pacmann.Top = pacmann.Top + 10
End If
end select
En el label19
es como una barra de laberinto entonces ese label19
tiene como cabeza 222
entonces definí que si la cabeza del label19
es diferente a 222
entonces deje bajar pero cuando hago esto no me deja bajar a ningún lado.
¿Cómo soluciono el problema?
Case 40 'abajo
If (Label19.Top <> 222) Then
pacmann.Top = pacmann.Top + 10
End If