Moving Walls

Hi

I'm making a game that will some part use a caracter that goes insed a house and i need to make the walls move while the user hold the arrowUp. any answer is apreciable.

thanks

To make things respond to keys, use GetAsyncKeyState.

Code:

---

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
    'Move MyTile up while the Up-Arrow key is pressed
    If GetAsyncKeyState(vbKeyUp) Then MyTile.Top = MyTile.Top + 15
End Sub

---