Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyRight Then Shape1.Left = Shape1.Left + 100
If KeyCode = vbKeyLeft Then Shape1.Left = Shape1.Left - 100

If Shape1.Left < -10 Then
Shape1.Left = 4680
ElseIf Shape1.Left > 4680 Then
Shape1.Left = -10
End If
End Sub