Botão abrir paint com imagem associada

Boa tarde,
Pretendo criar um botão que me abra o paint para criar uma assinatura, com o nome associado a um código de encomenda, e ao saír gravar e apresentar a assinatura no formulário.
Tenho o campo assinatura na tabela que pretendo que seja o link para uma pasta de fotos.[b] "assinatura"
Tenho o Caminho para as fotos X:\fotos "Caminho Fotos"
Tenho o código da encomenda  "CodigoDaEncomenda"
Tenho o a foto no formulário "Foto"

Com este código abra o paint mas não deia apresentar a imagem do paint no formulário.

Alguem que possa ajudar?
O que estou a fazer mal?
Obrigado.

Código:

Private Sub Comando171_Click()

Dim RetVal
Dim CaminhoFotos As String

CaminhoFotos = "X:\fotos\"
RetVal = Shell("MSPAINT.EXE" & Space(1) & Me.assinatura & Me.CodigoDaEncomenda & ".jpg", 1)
If Len(CaminhoFotos) > 0 Then
       Me.assinatura = CaminhoFotos
       Me.Foto.Picture = Me.assinatura

End If

End Sub

Olá Luís,

Existe exemplos no fórum, veja se ajuda:
https://www.maximoaccess.com/t26833-resolvidomodificar-paint-vba-coordenadas
https://www.maximoaccess.com/t23187-fotos-em-fomulario-continuo-access-2003

Pode sempre tentar uma "Pesquisa" aqui no fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Abraço

Obrigado pela dica ahteixeira.
jà coloquei a funcionar, só falta um pormenor que me está faltar.
Clico no campo, abre o paint edito a imagem, gravo e saio, mas não me apresenta a imagem alterada, apenas a imagem inicial.
A rotina é esta:

Private Sub imgControle_DblClick(Cancel As Integer)
'abrir foto no paint
'2015 - ahteixeira
Dim imgControle As String

If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.C?digoDaEncomenda & ".jpg", 1)) > 0 Then
' Dim RetVal
' RetVal = Shell("MSPAINT.EXE" & Space(1) & Application.CurrentProject.Path & "\Imagens\" & Me.C?digoDaEncomenda & ".jpg", 1)
Call AbreImagemNoPaint(CurrentProject.Path & "\Imagens\" & Me.C?digoDaEncomenda & ".jpg")
Else
'se nao existir ficheiro, pergunta se preterde criar novo
' If MsgBox("Deseja criar Ortondontia nova?", vbExclamation + vbYesNo, "N?o existe ficheiro associado.") = vbYes Then

Dim fOrigem, fDestino
fOrigem = Application.CurrentProject.Path & "\Imagens\modelo.jpg"
fDestino = Application.CurrentProject.Path & "\Imagens\" & Me.C?digoDaEncomenda & ".jpg"
'copia
FileCopy fOrigem, fDestino


'para atualizar/refrescar foto
'Call fncMostraFoto
Call AbreImagemNoPaint(CurrentProject.Path & "\Imagens\" & Me.C?digoDaEncomenda & ".jpg")


Me!assinatura = C?digoDaEncomenda & ".jpg"
Me!imgControle.Picture = fDestino



End If
' End If

End Sub

Assinatura é o campo onde guarda o caminho da foto e está a guardar com a alteração e imgControle é o campo que apresenta a foto no formulário mas não atualiza.
O que estou a fazer mal?... Sei que é uma aselhice minha, mas não me atualiza o campo...

Veja o tópico abaixo no repositório de exemplos. Ajudará em como atualizar a imagem após ser alterada.
https://www.maximoaccess.com/t37121-editando-imagens-access-com-paint

Obrigado.
Vou verificar

Olá Luis, já conseguiu verificar?

Se ficou esclarecido não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

O retorno é muito imporante para o fórum.

Abraço a todos