[Resolvido]Codigo nao funciona

Solicito ajuda para avaliaçao do codigo abaixo que tem como intencao apresentar uma imagem a cada alteracao de valor. O valor NRSorteado é um campo Não Acoplado e o que estou usando para apresentacao da imagem é Acoplado. Onde esta o erro?

Private Sub OLEAcoplado525_Updated(Code As Integer)
   SeImed NrSorteado = [PATROCINADORES]![Pedra], Picture.PATROCINADORES![foto1], Picture.PATROCINADORES![foto1]

End Sub


José Silvio

Precisa de uma função lógica na parte em vermelho
SeImed NrSorteado = [PATROCINADORES]![Pedra], Picture.PATROCINADORES![foto1], Picture.PATROCINADORES![foto1]

DEsculpe xoxe nao entendi suas informações.Pode me explicar melho?

[PATROCINADORES]![Pedra] é igual a algum valor?

O SeIMed é parecido com a função SE do excel

Se TESTE LOGICO, VALOR VERDADEIRO, VALOR FALSO

SE [PATROCINADORES]![Pedra] = 0, 0, 1

Não sei se fui claro, mas qual seria a intenção deste código?

Na verdade o que preciso é do seguinte: Qdo clico no formulario de abertura para sortear uma pedra no sistema de bingo , ele me dá uma letra e um numero. Gostaria que este numero, qdo aparecesse na tela gerasse a abertura de uma imagem relacionada a ele(imagens na tabela de patrocinadores) e deixasse a mesma na tela por 20 a 30 segundos (se for possível parametrizar, melhor ou entao após um clic de teclado/mouse a mesma se fechar).

Qdo clico para sorteio ele já me apresenta ao lado o texto, neste momento apenas o nome do patrocinador (Não Acoplado), porem gostaria que fosse uma imagem relativa ao patrocinador como lhe expliquei.

Como nao conhece de vba, tentei fazer esta linha que lhe enviei no inicio mas que nao produz nada (nem de erro).

resolvido (?!)