Mover objeto con el teclado

[galber]

Wenas!!

Estoy haciendo el pacman con el visual basic, y tengo un problema al mover el pacman, ya que por ahora solo puedo acerlo con numeros, pero me gustaria poder hacerlo con las teclas de direccion -->, <--, etc.

Por el momento hago esto para moverlo:
Public Sub picpac_KeyPress(KeyAscii As Integer)

If KeyAscii = 56 Then
tmrtimer.Enabled = False
Call moure
k = 0
End If
If KeyAscii = 54 Then
tmrtimer.Enabled = False
Call moure
k = 1
End If
If KeyAscii = 50 Then
tmrtimer.Enabled = False
Call moure
k = 2
End If
If KeyAscii = 52 Then
tmrtimer.Enabled = False
Call moure
k = 3
End If

End Sub

Private Sub tmrtimer_Timer()
Select Case k

Case 0:
picpac.Top = (picpac.Top - 30)
Case 1:
picpac.Left = (picpac.Left + 30)
Case 2:
picpac.Top = (picpac.Top + 30)
Case 3:
picpac.Left = (picpac.Left - 30)


End Select
End Sub

Gracias!!

[vbx3m]

Podrias ponerlo en el evento

Private Sub Form_KeyDown(keycode As Integer, Shift As Integer)
If keycode = vbKeyUp Then
*
*
*
If keycode = vbKeyDown Then
*
*
*
If keycode = vbKeyLeft Then
*
*
*
If keycode = vbKeyRight Then
*
*
*

Pruebalo... Me avisas que tal...

[galber]

era eso, gracias crack!