Private Sub Command1_Click()    hHook = SetWindowsHookEx(WH_CALLWNDPROC, AddressOf CallBackHookProc, App.hInstance, App.ThreadID)    Debug.Print hHookEnd SubPrivate Sub Command2_Click()    Call UnhookWindowsHookEx(hHook)End Sub

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, _    ByVal lpfn As Long, _    ByVal hmod As Long, _    ByVal dwThreadId As Long) As LongPublic Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As LongPublic Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _    ByVal nCode As Long, _    ByVal wParam As Long, _    lParam As Any) As LongPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, _    Source As Any, _    ByVal Length As Long)Public Const WH_CALLWNDPROC = 4Public Const WM_COMMAND = &H111Public Const EN_CHANGE = &H300Public Type CWPSTRUCT        lParam As Long        wParam As Long        message As Long        hwnd As LongEnd TypePublic Const HC_ACTION = 0Public hHook As LongPublic Function CallBackHookProc(ByVal nCode As Long, _    ByVal wParam As Long, _    ByVal lParam As Long) As Long        If nCode = HC_ACTION Then        Dim Msg As CWPSTRUCT        Call CopyMemory(Msg, ByVal lParam, Len(Msg))        If Msg.message = WM_COMMAND Then            If (Msg.wParam And &HFFFF0000) / &H10000 = EN_CHANGE Then                Debug.Print "GOTCHA"            End If        End If    End If        CallBackHookProc = CallNextHookEx(hHook, nCode, wParam, lParam)End Function