I searched a lot of forums, but I can't really find the answer to my problem. Simply put, my problem is that my character won't move. Here's my code:

Private Sub frmMain_Load()

Randomize ...