Размерность переменных функции SetWinEventHook в Windows 64bit

[AndVGri]

Доброе время суток
Подскажите какой размер занимают переменные в функциях WinApi SetWinEventHook, UnhookWinEvent в Windows 64bit.
Мне нужно их использовать в Excel VBA. Под 32 битной версией всё работает (там размерность всех типов 32bit), а под Excel 64bit зависает. Пока получилось определить следующее

HWINEVENTHOOK 64bit
LONG 32bit
BOOL 32bit
DWORD 32bit
UINT 32bit
HWND 64bit

А какую размерность имеют

HMODULE
WINEVENTPROC

Объявления функций на MSDN

HWINEVENTHOOK WINAPI SetWinEventHook(
  _In_ UINT         eventMin,
  _In_ UINT         eventMax,
  _In_ HMODULE      hmodWinEventProc,
  _In_ WINEVENTPROC lpfnWinEventProc,
  _In_ DWORD        idProcess,
  _In_ DWORD        idThread,
  _In_ UINT         dwflags
);

BOOL WINAPI UnhookWinEvent(
  _In_ HWINEVENTHOOK hWinEventHook
);

void CALLBACK WinEventProc(
   HWINEVENTHOOK hWinEventHook,
   DWORD         event,
   HWND          hwnd,
   LONG          idObject,
   LONG          idChild,
   DWORD         dwEventThread,
   DWORD         dwmsEventTime
);

Может ли быть проблема с передачей функции обратного вызова Excel для SetWinEventHook через AddressOf MyWinEventFunc?

[p51x]

А какую размерность имеют

Оба указатели, а значит 64бита

[AndVGri]

p51x, большое спасибо. Завтра попробую протестировать. К сожалению, изменений не вижу Единственно, callback-функцию объявил как возвращающую тип Long, а не viod - как должно быть, но в Excel 2010 32bit это работало.
Не могли бы вы посмотреть, может я всё же где то ошибаюсь в определениях?

Private Const EVENT_SYSTEM_FOREGROUND = &H3&
Private Const WINEVENT_OUTOFCONTEXT = 0
 
Private Declare PtrSafe Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As LongPtr, lpdwProcessId As Long) As Long
Private Declare PtrSafe Function UnhookWinEvent Lib "user32" (ByVal hWinEventHook As LongPtr) As Long

Private Declare PtrSafe Function SetWinEventHook Lib "user32.dll" ( _
    ByVal eventMin As Long, ByVal eventMax As Long, _
    ByVal hmodWinEventProc As LongPtr, ByVal pfnWinEventProc As LongPtr, _
    ByVal idProcess As Long, ByVal idThread As Long, ByVal dwFlags As Long) As LongPtr

Private ThisHookHandle As LongPtr

Public Sub StartHookForeground()
    Dim AppProcessId As Long, AppThreadId As Long
    AppProcessId = GetCurrentProcessId
    AppThreadId = GetWindowThreadProcessId(Application.Hwnd, AppProcessId)
    ThisHookHandle = SetWinEventHook(EVENT_SYSTEM_FOREGROUND, EVENT_SYSTEM_FOREGROUND, 0, _
                     AddressOf WinEventFunc, AppProcessId, AppThreadId, WINEVENT_OUTOFCONTEXT)
End Sub

Public Sub StopHookForeground()
    If ThisHookHandle <> 0 Then UnhookWinEvent ThisHookHandle
End Sub
Private Sub WinEventFunc(ByVal HookHandle As LongPtr, ByVal LEvent As Long, _
                            ByVal Hwnd As LongPtr, ByVal idObject As Long, ByVal idChild As Long, _
                            ByVal idEventThread As Long, ByVal dwmsEventTime As Long)
End Sub

LongPtr - в 32 битных Excel - это 32 битное целое, а в 64битных 64 бита. Long - 32 битный.
Спасибо