Creare un "muro" (VB2010)

[Ribis]

Mah, nel caso ad esempio del Top non basterebbe un:

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..............

Ho provato questo metodo ma essendo un quadrato il "muro", il player non può girarci intorno.
Altri suggerimenti?