来自「VB的文本资料,需要时有帮助」· 代码 · 共 10 行

在软件中设置热键 
Private Declare Function GetAsyncKeyState Lib "user32" _
Alias "GetAsyncKeyState" (Byval vkey as Long) as integer
private function MyHotKey(vKeyCode) as boolean
MyHotKey=(GetAsyncKeyState)<0)
end function
然后在循环中或Timer得Timer事件中检测：
If myHotKey(vbkeyA) then .....
其中vbkeyA是键盘"A"的常数，其他键可按F1查.