Move the While Not KeyHit(KEY_ESCAPE) back so that it comes after the player:TImage=LoadImage and before the Cls.
You're clearing the screen and drawing an image once, and from that point on you're just flipping the buffers for no good reason. You have to draw what you want seen every frame.
You're clearing the screen and drawing an image once, and from that point on you're just flipping the buffers for no good reason. You have to draw what you want seen every frame.