[Resolvido]Imagem abre na cor preta

Bom dia.
Criei um exemplo simples para através de um click numa imagem abrir o MS Paint na imagem escolhida, vide codificação abaixo:

Private Sub Imagem0_Click()
    Dim Application As String
    Dim fPath As String
    Application = "C:\WINDOWS\system32\mspaint.exe"
    fPath = CurrentProject.Path & "\Image0\" ' & BrokerLogo
    Shell Application & " " & fPath
End Sub



Todavia o MS Paint abre, mas com a imagem preta (vide figura).
Como resolvo?
Obrigado

Refiz a codificação para.....

Private Sub Imagem0_Click()
On Error GoTo Imagem0_Click_Err
Shell "C:\WINDOWS\system32\mspaint.exe", vbNormalFocus
Imagem0_Click_Exit:
Exit Sub
Imagem0_Click_Err:
MsgBox Error$
Resume Imagem0_Click_Exit
End Sub

Abre o MS Paint.

modifiquei para.......

Private Sub Imagem0_Click()
On Error GoTo Imagem0_Click_Err
Shell "C:\WINDOWS\system32\mspaint.exe", vbNormalFocus
Me.Imagem0.Picture = Application.CurrentProject.Path & "\Cranio\"
Imagem0_Click_Exit:
Exit Sub
Imagem0_Click_Err:
MsgBox Error$
Resume Imagem0_Click_Exit
End Sub

a linha azul seria para abrir a imagem cranio.....

quando rodo......

abre o MS Paint, com mensagem de erro informando que não pode abrir o .....caminho da imagem cranio.
Como resolvo isso?

Mude para:

Me.Imagem0.Picture = Application.CurrentProject.Path & "\Cranio.jpg"

O caminho deve ser completo, incluindo Nomearquivo.extensão

Fábio.
Boa tarde

Modifiquei e ....
Mostra a imagem do cranio no form, abre o MS Paint, mas não há imagem do cranio no MS Paint.
Fica uma tela do mesmo tamanho em branco....

Se quer abrir a imagem no Paint, Mude todos seu Codigo Para:

Private Sub Imagem0_Click()
Dim F
F = Shell("MSPAINT.EXE" & Space(1) & CurrentProject.Path & "\Cranio.jpg", 1)
End Sub

Fiz, mas abre o MS Paint com o desenho na cor preta.....

Aqui deu certinho amigo...

coloquei em outro lugar e abriu tela presta.
deve ser aqui.
tem ideia do que poderia ser?

Vou abrir outro tópico para entender o porque da tela MS paint abrir presta.
Obrigado a todos.