如何在按GetAsyncKeyState时检查VBA应用程序是否处于焦点状态

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

Sub CheckFocusStatus()
    Dim hWnd As Long
    Dim isFocused As Boolean
    
    ' 获取当前拥有焦点的窗口句柄
    hWnd = GetForegroundWindow()
    
    ' 检查空格键是否被按下
    If GetAsyncKeyState(vbKeySpace) <> 0 Then
        ' 如果空格键被按下，则应用程序处于焦点状态
        isFocused = True
    Else
        ' 如果空格键未被按下，则应用程序不处于焦点状态
        isFocused = False
    End If
    
    ' 输出结果
    If isFocused Then
        MsgBox "应用程序处于焦点状态"
    Else
        MsgBox "应用程序不处于焦点状态"
    End If
End Sub