如何在VBA x64中使用CallWindowProc？

#If VBA7 Then
    Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
#Else
    Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
#End If

Private Function WindowProc(ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
    ' 窗口过程的实现代码
    ' ...
End Function

Sub TestCallWindowProc()
    Dim hWnd As LongPtr
    Dim lpPrevWndFunc As LongPtr
    Dim result As LongPtr
    
    ' 获取窗口句柄
    hWnd = FindWindow("ClassName", "WindowName")
    
    ' 设置窗口过程
    lpPrevWndFunc = SetWindowLongPtr(hWnd, GWLP_WNDPROC, AddressOf WindowProc)
    
    ' 调用窗口过程
    result = CallWindowProc(lpPrevWndFunc, hWnd, WM_MYMESSAGE, wParam, lParam)
    
    ' 恢复原始窗口过程
    SetWindowLongPtr hWnd, GWLP_WNDPROC, lpPrevWndFunc
End Sub