[Resolvido]Mudar imagem em formulário

Boa tarde Pessoal,
Eu estou criando um sistema no access e na tela principal tem uma imagem (Imagem86), eu gostaria de colocar um botão que quando a pessoa clicasse aparecesse uma tela para ela escolher uma nova imagem, então está imagem atual seria substituída pela escolhida.
Analisei um modelo postado pelo membro do fórum Kaynan onde pode-se mudar a cor do fundo do form, mas n consegui adaptar ao meu projeto.

PS: no formulário não aparecem Cabeçalho e Rodapé, todos os itens estão contidos no Detalhe do formulário.

Ola amigo se puder poste pra nós,que te ajudaremos.

Abç.

Nao estou conseguindo enviar. :/

Envie zipado,se não conseguir envie pra meu email. rachidsilva@yahoo.com.br que posto pra ti.

Enviado

O bd do colega.
Bem,você quer imagens ou a troca de cor como o exemplo que coloquei no repositório.

https://dl.dropboxusercontent.com/u/90217826/Banco%20de%20dados9.rar

Eu gostaria da opção do usuário fazer a troca da imagem central do formulário.

Vou ver oque pode ser feito.amigo.

abç.

Obrigado.

Olá Kaynan,
Conseguiu algo?

Olá Rodrigo

Dando um pitaco aqui

Taí um exemplo.

Tem que manter as imagens na mesma pasta do aplicativo, pode ser numa subpasta, mas tem que acertar o caminho até elas
na função.

Observe também que teu formulário não pisca mais.

Editando: Eu reanexei o exemplo, agora está legal.

Abraços

Noob

Dando um up

Por favor, releiam o meu ultimo post

Noob

Olá Noob,
Era isso mesmo, mais uma vez obrigado!  

Mudando de combobox para listBox

Noob

Muito bom Noob
Valeu.....

Olá amigos,
Estou com outro problema, não estou conseguindo implementar o exemplo no meu projeto.
Eu gostaria que ficasse como na imagem abaixo.

Olá pessoal,
Eu consegui listar os itens na listbox, agora o meu problema é no evento "Ao Clicar" da list box.
Eu gostaria que quando eu clicasse em um item ele exibisse uma prévia ao lado. Meu form está assim:



E estou usando este código para exibir os itens:

Código:

Private Sub Lista0_Enter()
Dim strDiretorio, strPasta, strFicheiros
strDiretorio = CurrentProject.Path & "\Imagens\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set strPasta = fso.GetFolder(strDiretorio)
Set strFicheiros = strPasta.Files
Me.Lista0.RowSourceType = "Value List"
For Each File In strFicheiros
Me.Lista0.AddItem (File.Name)
Next
End Sub


Esta parte está resolvida.
Obrigado a todos!