VB中，如何判断键盘输入？

用keypress事件
private sub text1_keypress(keyascii as integer)

end sub
以上是一个TEXT的keypress事件的过程

代码可以这样写
if keyascii < 48 or keyascii > 57 then '如果输入的是0-9之外的字母将BEEP（报警）
beep
keyascii = 0
end if