Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
With Command1Select Case KeyCode
    Case vbKeyLeft:  .Left = .Left - 10
    Case vbKeyRight: .Left = .Left + 10
End SelectEnd With
End Sub