Escojer Imagen al azar

[Zorrohack]

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

[Kizar]

Código [Seleccionar] Expandir


Dim Num as long
Num = Int((Rnd * 6) + 1) 'en este caso sacaria un numero a boleo del 1 al 6


Salu2

[Grimble Grumble]

Utiliza el ImageList, es la mejor opcion y la mas comoda, ya q trabajas con su indice... En los componentes busca  Microsoft Windows Common Controls 6.0 )si no me equivoco=

Objeto.Picture=ImageList.Listimage(indice).picture

Saludos !