程序代码：

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Click()
    Debug.Print GetAsyncKeyState(vbKeyLButton), GetAsyncKeyState(vbKeyRButton)
End Sub