[Resolvido]win 32(windows 7) para win64(windows 10) inserção de imagem não funciona.

Amigos,

Bom dia.

Estou tendo problems com o bd que eu mesmo criei seguindo exemplos aqui do forum, não tenho experiencia na area, mas consegui fazer o que queria.

vamos ao problema. O meu formulario contava com um botão que me levava para a caixa de opções inserir imagem do windows e ao atualizar o sistema para o Win 10 64 bits utilizando a declaração PtrSafe Function, o botão não esta funcionando mais, alguem pode me ajudar.


Private Sub btnLocalizar_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Caminho da foto"
strCaminho = Buscar(Me.hWnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.jpeg; *.jpg)" & vbNullChar & "*.jpeg; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto = strCaminho
Me.FOTO.Picture = Me.LocalFoto
Me.FOTO.Visible = True

End If

End Sub

Veja este tópico.
https://www.maximoaccess.com/t37220-adaptar-foto-em-formulario-para-windows10

Boa tarde. Pessoal, na verdade tentei de tudo e a unica coisa que funcionou foi voltar para a versão de 32 bits do Office. mas tem que se acrescentar a declaração de função o PtrSafe.

O fórum agradece o retorno. Sucesso.