建议用判断虚拟键状态:Declare Function GetKeyState Lib "user32 " Alias "GetKeyState " (ByVal nVirtKey As Long) As Integer针对已处理过的按键,在最近一次输入信息时,判断指定虚拟键的状态返回值Integer,如开关键打开,则位0设为1(开关键包括CapsLock, NumLock,ScrollLock);如某个键当时正处于按下状态,则位15为1;如已经抬起,则为0参数表参数 类型及说明nVirtKey Long,欲测试的虚拟键键码。对字母、数字字符(A-Z、a-z、0-9),用它们实际的ASCII值