Como hacer para que no se me repitan las imagenes mostradas aleatoriamente

luis antonio bahena
30 de Mayo del 2012
necesito ayuda!!!! me eh trabado en un segmento del código de
ya tengo casi todo terminado solo necesito que las imágenes
mostradas no se me repitan, las tengo nombradas del 1 al 54
prácticamente es un juego de lotería, pero hay un error en mi
código que no me deja avanzar y pues me eh quedado trabado en eso
y no hallo como salir.
Por favor alguien seria tan amable de ayudarme, aquí les dejo el código que hasta ahora tengo si me podrían decir en que me equivoco por favor..
Lo que hace hasta ahora es:
-Muestra las imágenes que tengo
-Las muestra aleatoriamente

Lo que quiero que haga.
- Que no se me repitan las imágenes ya una ves mostradas

Se los agradecería mucho..

luis antonio bahena
30 de Mayo del 2012
aquí les dejo el código que tengo hasta ahora:

Private Sub Command1_Click()
Randomize Timer
Dim aleatorio As Integer, x As Integer
For x = 1 To 54
Do While True
aleatorio = Int(((archivos.ListCount - 1) * -1) * Rnd + archivos.ListCount - 1) 'en esta parte indicamos el muestreo aleatorio de las imagenes
If numeros.find(aleatorio) Then
numeros.Add (aleatorio)
Imagen.Picture = LoadPicture(App.Path + "imagenes" + archivos.List(aleatorio))


End If
Loop
Print aleatorio
Next

End Sub