Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_LSHIFT = &HA0
Private Sub Command1_Click()
Dim p As Long
p = GetAsyncKeyState(VK_LSHIFT)
MsgBox p
End Sub
对你问题回答：没有这个功能。这个函数需要你指定对某个键监视，判断是被按下或者弹起.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024