Freebasic and CHR$(0) + Arrows Keys Key Codes

[Clay Dragon]

Greetings everyone, I'm trying to port my QBasic RPG Engine to FreeBasic and the following code does not work, the arrows keys are not responding:

Code:

SELECT CASE kbd$
   CASE CHR$(0) + "H"
    CALL MoveUp
    WorldData.Action = True
   CASE CHR$(0) + "P"
    CALL MoveDown
    WorldData.Action = True
   CASE CHR$(0) + "K"
    CALL MoveLeft
    WorldData.Action = True
   CASE CHR$(0) + "M"
    CALL MoveRight
    WorldData.Action = True
   CASE CHR$(27)
    END
  END SELECT

So, is there a way to work with arrows keys in FreeBasic?

Thanks!