Visual Basic - Problema con flechitas

yo tengo este codigo :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37 'cursor izquierda
Command1.Left = Command1.Left - 120
Case 38 'cursor arriba
Command1.Top = Command1.Top - 120
Case 39 'cursor derecha
Command1.Left = Command1.Left + 120
Case 40 'cursor abajo
Command1.Top = Command1.Top + 120
End Select
End Sub

lo que tiene que hacer es que si se apreta una de las flechitas del teclado tendria que irse el boton para donde apunta esta.
por ejemplo si se apreta la flechita : arriba
tiene que irse un para hacia arriba
cual es el error ?

Tu codigo esta bien. tene en cuenta que estas tomando las teclas en el keydown del formulario por lo que deberias tener la propiedad keypreview de este seteada a true