Need help bei simplen feld + rnd funktion

hallo zusammen ich hab vor ein memory programm zu schreiben meine kentnisse in vb sind aber noch nich so weit vortgeschritten =) ( lern vb seit 2 wochen)

also zunächst einmal möchte ich ein feld(23) mit zufallszahlen zwischen 1 und 24 füllen hierbei darf jedoch keine zahl mehr als einmal vorkommen

nach diesen zufallszahlen sollen meine bilder (0.bmp -23.bmp) in ein weiteres feld geladen werden und diese dann ausgegeben werden

mein vorschlag ist:

Private Sub Mischen_Click(Index As Integer)

Dim random As Integer

Dim Y As Integer

Dim a As Integer

Dim zufall(23)

For a = 0 To 23

Randomize

Y = Int((24 * Rnd) + 1)

zufall(a) = Y

Next

For X = 0 To 23

zufall(Y) = "D:\schule\prog\vb memorie projekt\Memorie2.2\bilder\" & (X) & ".bmp"

Bild(X).Picture = LoadPicture(bilder(Y))

Sleep 200

Next

Sleep 2000

End Sub

hilfe ist immer willkommen danke schonma

gruß don-kanalie