Select True Case xKeyDown(29) xPositionEntity camera,0,0,0 Case Not xKeyDown(29) xPositionEntity camera,0,2,0 End Select