请高人翻译VB代码

API函数,功能是判断函数调用时指定虚拟键的状态，即调用该函数时，可以检测到用户想检测的键是否被按下该函数的声明如下:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
参数vKey表示想检测键的扫描代码，该扫描代码由vbKey和键面字符组成，例如F1、F2、F3、A的扫描代码分别为vbKeyF1、vbKeyF2、vbKeyF3、vbKeyA。如果用户按下指定的键，函数的返回值为小于0的整数，否则返回大于或等于0的整数。因此，可以根据返回值是否小于0，检测是否按下指定的键。该函数还有一个非常好的特点，那就是无论调用它的程序是在前台还是在后台运行，它都能够检测键盘上某一键是否被按下（即一旦调该函数，它在整个系统范围内都有效）。利用这个特点，我们便可以为某一个功能键定义一个应用程序，然后再用计时器实时检测该键状态，当该键被按下时调用该应用程序，从而实现“一键功能”。