Private Declare Function GetNextWindow Lib 'user32' Alias 'GetWindow' (ByVal hwnd As Long, ByVal wFlag As Long) As Long Private Declare Function GetWindowText Lib 'user32' Alias 'GetWindowTextA' (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetClassName Lib 'user32' Alias 'GetClassNameA' (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetActiveWindow Lib 'user32' () As Long Private Declare Function GetDlgItem Lib 'user32' (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long Private Declare Function GetCurrentThreadId Lib 'kernel32' () As Long Private Declare Function CallNextHookEx Lib 'user32' (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function UnhookWindowsHookEx Lib 'user32' (ByVal hhk As Long) As Long Private Declare Function SetWindowsHookEx Lib 'user32' Alias 'SetWindowsHookExA' (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private Declare PtrSafe Function SetActiveWindow Lib 'user32' (ByVal hwnd As LongPtr) As LongPtr Private Declare PtrSafe Function SetWindowPos Lib 'user32' (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare PtrSafe Function KillTimer Lib 'user32' (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long Private Declare PtrSafe Function SetTimer Lib 'user32' (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr Private Declare PtrSafe Function SetFocus Lib 'user32' (ByVal hwnd As LongPtr) As LongPtr Private Declare PtrSafe Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As String) As LongPtr Private Declare PtrSafe Function FindWindowEx Lib 'user32' Alias 'FindWindowExA' (ByVal hWnd1 As LongPtr, ByVal hwnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr Private Declare PtrSafe Function GetNextWindow Lib 'user32' Alias 'GetWindow' (ByVal hwnd As LongPtr, ByVal wFlag As Long) As LongPtr Private Declare PtrSafe Function GetWindowText Lib 'user32' Alias 'GetWindowTextA' (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long Private Declare PtrSafe Function GetClassName Lib 'user32' Alias 'GetClassNameA' (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare PtrSafe Function GetActiveWindow Lib 'user32' () As LongPtr Private Declare PtrSafe Function GetDlgItem Lib 'user32' (ByVal hDlg As LongPtr, ByVal nIDDlgItem As Long) As LongPtr Private Declare PtrSafe Function GetCurrentThreadId Lib 'kernel32' () As Long Private Declare PtrSafe Function CallNextHookEx Lib 'user32' (ByVal hHook As LongPtr, ByVal nCode As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr Private Declare PtrSafe Function UnhookWindowsHookEx Lib 'user32' (ByVal hhk As LongPtr) As Long Private Declare PtrSafe Function SetWindowsHookEx Lib 'user32' Alias 'SetWindowsHookExA' (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr

Access vba project locked