Почему когда я делаю вот так, то про нажатию на KeyHit (1) ниче не происходит?
While Not KeyHit (1)
Select Game
Case 1
MainMenu ()
While Not KeyHit (1)
Cls ()
UpdateMainMenu ()
Flip
Wend
Case 2
Game ()
While Not KeyHit (1)
UpdateGame ()
UpdateWorld ()
RenderWorld ()
Flip
Wend
End Select
Wend :End