vbKeyCode

Option Explicit
Private Sub BackRound_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
If GUN.Left <= 300 Then
GoTo NextStep
Else
GUN.Left = GUN.Left - Grid
End If
Case vbKeyRight
If GUN.Left >= 300 Then
GoTo NextStep
Else
GUN.Left = GUN.Left + Grid
End If
End Select
NextStep:
'unwritten
End Sub
-------------------------------------------------------------------------
The GUN doesnt go right when I press right (vbRight) any ideas?
*Note: Grid has been defined as a Public Const of value 330 on a moudle