[Resolvido]Formulário Anexos não funciona corretamente em 64 bits

Agradeço ajuda
tenho um formulário anexos com 3 botões, um define o local do anexo, outro abre o anexo e outro elimina o anexo
num pc de 32bits tudo funciona corretamente, já em 64bits e Office 2019 o botão btDefinirLocal não funciona mesmo depois de eu ter colocado no código PtrSafe
o codigo foi copiado em exemplo encontrado neste forum

anexo o exemplo para ajuda

JSilva

Anexo exemplo com as respetivas alterações para 64 bits

Olá José Silva,

Fico feliz por ter conseguido, obrigado pela partilha da solução o fórum agradece.

Fica aqui outros tópicos, o tema já foi abordado diversas vezes no fórum e pode ajudar outros membros:
https://www.maximoaccess.com/t38266-resolvido32-bits-x-64-bits
https://www.maximoaccess.com/t39423-resolvidoajustar-codigo-para-funcionar-em-32-bits-e-64-bits

Abraço