Mah, nel caso ad esempio del Top non basterebbe un:
codice:
If GetKeyState(87) < 0 OrElse GetKeyState(38) < 0 Then
   If PBPlayer1.Top > Muro.Bottom then
      PBPlayer1.Top -= 3 'eventualmente affinando a 2 o 1 se con un 3 va "sotto"
   End If
ElseIf GetKeyState(65) < 0..............