我们都知道，键盘上有三个Lock键，分别是CapsLock、NumLock和ScrollLock。你可以通过在vb程序使用Windows API的函数来读取这几个键的状态。函数的声明必须包含在使用该函数的程序的模块中，声明如下：
GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
要想获得某键的状态，需要呼叫GetKeyState函数并传递vb常量：vbKeyCapital、vbKeyNumLock或者 vbKeyScrollLock。如果按键未锁定则函数会返回0，否则会返回1。
这个API函数也不仅限于获取Lock键的值，对于键盘上的任意键，它都可以进行状态探测。如果发送给GetKeyState函数的参数不是Lock键，比如是vbKeyX或vbKeyF6键，则当相应按键抬起时函数会返回0，按下时会返回一个非零值。
通过GetKeyState函数获得的信息具有一定局限性。因为对于非lock键来说，它所返回的只是按键瞬间的状态，对于程序来说并没有太大的实用性。
