SoloCodigo

Hola amigos deseo mover un boton de comando colocado en un formulario al presionar LAS TECLAS DIRECCIONALES
Se me ocurrio esto
Pero el boton se mueve si presiono tanto SHIFT Y Direccionales

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
Command1.Left = Command1.Left + 100
End If
End Sub
Yo solo deseo SOLO con teclas direccionales pero no se como realizarlo
Gracias por su apoyo
Atte Abel[/size]

¿Te sirve    ....

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
Image1.Top = Image1.Top - 50
Case vbKeyDown
Image1.Top = Image1.Top + 50
Case vbKeyRight
Image1.Left = Image1.Left + 50
Case vbKeyLeft
Image1.Left = Image1.Left - 50
End Select
End Sub


La propiedad la tiene la Picture1, pero se mueve el Image1 sin necesidad de Alt, Ctrl, etc.