キーボードの問題もあるかもしれないけど、
全てのキーの状態を一度に取得するならGetKeyboardState() APIはどうでしょうか?
詳しくはググってください。
#uselib "user32"
#func GetKeyboardState "GetKeyboardState" var
title "キーの状態を取得"
sdim keys,256
repeat
redraw 0
color 255,255,255
boxf 0,0,640,480
color 0,0,0
GetKeyboardState keys
for y,0,16
for x,0,16
if peek(keys,y*16+x) & 0x80 {
pos x*30,y*20
mes str(y*16+x)
}
next
next
redraw 1
await 10
loop