Nao estou conseguindo colocar as fotos..

[danielmartins_9 0]

Eu nao estou conseguindo fazer um negocio, eh o seguinte:eu tenho 3 fotos para colocar em um campo Image, e cada foto devera aprecer qunado der um certo resultado.Ex.: de 1 a 10 aparece uma foto, de 11 a 20 aparece outra...Naum sei c vcs poderiam me ajudar...Vlw...Espero Respostas...

[lucasrocha 0]

Este é só um exemplo isso poderia ser feito de outras formas, esta é a mais simples.Private Sub Command1_Click()Dim I As IntegerDim J As IntegerDim Caminho_Imagem As String For I = 1 To 3 For J = 1 To 10 If I = 1 Then Caminho_Imagem = "C:\Foto1.jpg" ElseIf I = 2 Then Caminho_Imagem = "C:\Foto2.jpg" ElseIf I = 3 Then Caminho_Imagem = "C:\Foto3.jpg" End If Next J Image1.Picture = LoadPicture(Caminho_Imagem) Next IEnd Sub

[Luizgrs 0]

Acho que no seu caso como são só 3 imagens, seria mais prático você colocar três controles image ou picture e usar a propriedade visible deles.