It looks like a bug, or at least a missing feature.
I've coded that rapidly, it works.
I've coded that rapidly, it works.
Function GetKey_() Local k% = GetKey() If k Then Return k Else Select True Case KeyHit(71) Return Asc("7") Case KeyHit(72) Return Asc("8") Case KeyHit(73) Return Asc("9") Case KeyHit(75) Return Asc("4") Case KeyHit(76) Return Asc("5") Case KeyHit(77) Return Asc("6") Case KeyHit(79) Return Asc("1") Case KeyHit(80) Return Asc("2") Case KeyHit(81) Return Asc("3") Case KeyHit(82) Return Asc("0") Case KeyHit(83) Return Asc(".") End Select EndIf End Function