Question

VB快捷键GetAsyncKeyState按下与弹起事件

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF12) <0Then
If GetAsyncKeyState(vbKeyF12) >=0Then 按键弹起时鼠标点击指定位置
End Sub
检测按下与弹起，我这样写的话在待机的时候(还没开始按下F12，我要弹起F12再实现)它检测到得是弹起状态，鼠标一直不停的点击，请问怎样实现，按住F12执行一些功能，松开F12执行另外的功能

Answer 1

另设置个变量X ，
开机时X=0
if 按下 F12 时 X=1 ，
if 弹开F12 and X=1 ，
………
else
………
end if