Lo que pasa es que estoy desarrolando un Software para una Tienda, en una de las pantallas mostrara unas imagenes de algunos productos, las cuales seran escojidas al azar a cada cierto tiempo. Como le hago?

Crei que era algo asi?

Dim strFotos as String
strFotos=Array(Foto1,Foto2,Foto3)
Image1.Picture=LoadPicture(Randomize(DirectorioFotos & "\" & strFotos & ".jpg"))


pero no me da resultados

De todos modos me da error de Index out of Bounds , pero funciona perfectamente asi:

Dim i As Long
Math.Randomize
i = Rnd * ImageList1.ListImages.Count
If i > 3 Or i < 1 Then
  Exit Sub
Else
  Image8.Picture = ImageList1.ListImages(i).Picture
End If

Aunque se supone que funcione pero no se porque sigue dando ese error

Bueno, no entendi muy bien eso pero modifique el Codigo asi:

Dim i As Long
Math.Randomize
i = Rnd * 2
If i > 2 Or i < 1 Then
   Exit Sub
Else
   Image8.Picture = ImageList1.ListImages(i).Picture
End If

porque en realidad tengo dos imagenes en el ImageList aunque ya tendre mas.  Si al azar es mayor que 2 que seria el limite del index sale de la Funcion y si es menor que 1 que es lo mas bajo del Index tambien sale.

Si le asigna un numero al azar pero si el numero que escoje al azar se pasa de 100 ejemplo porque tengo 100 imagenes dentro del ImageList me da error de Index out of Bound

Bueno con este codigo Image1.Picture=ImageList1.ListImages(1).Picture

Lo que hago es que cambio la Imagen por la que me dice que esta en el Index 1 del ImageList, pero lo que quiero hacer es que me muestra a cada cierto tiempo una imagen al azar, suponiendo que tengo 100 imagenes entradas en el ImageList.No se si me explico.

Bueno pues yo a la verdad es que prefiero VB porque todos los programas que hago(por cierto son para sacarle $$$) los hago en Visual Basic, he tratrado de aprender C++ pero no me entra  ni con aceite es demasiado fuerte, en fin yo no hago aplicaciones para Linux ni Solaris ni Mac asi que me quedo con Visual Basic.

Ok hasta ahora esta todo bien , ahora como le hago para seleccionar mediante la Funcion Rnd(Random) las imagenes que estan en en el Directorio.

Entonces como le hago para cambiar la medidas de ese Picture o Image para que me quepa bien dentro del Cuadro?

Gracias me funciono !!

Estoy haciendo una Aplicacion en VB6  y quiero saber como hago para cambiar una Imagen mediante el Control Timer cada cierto tiempo, la imagen puede se un Picture o  Image.

Gracias