Boa-noite

Tenho um formulário que baixei e no Office 32 bits funciona blz...no 64 bits alterei todos que acusavam erro na linha "Private Declare Function" para "Private Declare PtrSafe Function", só que no final do UserForm está dando erro na linha "g_lpMyWndProc = SetWindowLong(g_hForm, GWL_WNDPROC, AddressOf HookWinProc)".

no "AddressOf HookWinProc"

Private Sub UserForm_Initialize()
    
  Dim lngWinState As XlWindowState


códigos...e deposi lá no final


g_hForm = FindWindow(vbNullString, Me.Caption)
    
    Call CreateAPIMenu

    #If VBA6 Then
        g_lpMyWndProc = SetWindowLong(g_hForm, GWL_WNDPROC, AddressOf HookWinProc)
    #Else
        g_lpMyWndProc = SetWindowLong(g_hForm, GWL_WNDPROC, AddrOf("HookWinProc"))
    #End If

End Sub

Teria alguma solução !?