[Resolvido]Erro no codigo dentro do PtrSafe

Boa noite.
Enfim, passei para o office64bits e até agora não entendi como que de colocar o
#If VBA7 Then
Declare ptrsafe Function GetActiveWindow Lib "user32" () As LongPtr
#Else
Declare Function GetActiveWindow Lib "user32" () As Long
#End If
Isso não da certo, de tanto pesquisar por aqui e ourtos não sei colocar isso, pois não da certo, decidi não colocar essa parte.

Só altero o PtrSafe, mas está dando prpblema em ;
Declare PtrSafe Function MouseCursor Lib (CursorType As Long) --- Era esperado em lib, mas coloco e da erro
Dim lngRet As Long
lngRet = LoadCursorBynum(0&, CursorType)
lngRet = SetCursor(lngRet)
End PtrSafe Function

Boa noite
Acompanhando.
Crysostomo aproveitando peço a gentileza que verifique seu e-mail e Msg privada em resposta a sua solicitação.
Obrigado
E boa semana a todos.

Meu amigos, bom dia.
Vá pedi outras veses, e me ajudaram, mas imfelismente fico sem entender.
Alguns módulos meus não estão permitinda essa mudança.
Estou estudando sobre essa mudando, pois decidi ficar so no 64 bits, mas não sei se estou fazendo certo. preciso da ajuda de vocês.
Fico mais sem entender porque;
#If VBA7 Then
aqui eu declaro
#Else
aqui eu declar
#End If
POrque se no #else ele pede PtrSafe?
Tenho um monte de projetos, mas pelo jeito não vai dar para passar para o 2010 x64

Use a API melhorada para isso;

Boa noite JPaulo.
Vendo o código que me passou,mesmo fazendo com essa separação dar erro, mas vou colocar como certo porque deletei oarquivo que deu erro, mas coloco esse tópico com resolvido porque não tenho o arquivo para te mostrar, caso acontece abrirei esse tópico.
Obg