Visual Basic - teclado

hola, lo que estoy haciendo es un programa con el que pueda mover un commandbutton con las flechas del teclado en ejecucion hacia cualquier direccion, si alguien sabe como hacer eso muy agradecido.

con las flechitas comunes no sale...
pero con las del numpad si.... aca tenes el codigo

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad4
Command1.Left = Command1.Left - 15
KeyCode = 0
Case vbKeyNumpad6
Command1.Left = Command1.Left + 15
KeyCode = 0
Case vbKeyNumpad8
Command1.Top = Command1.Top - 15
KeyCode = 0
Case vbKeyNumpad2
Command1.Top = Command1.Top + 15
KeyCode = 0
End Select

End Sub

muchas gracias, probare el codigo