Logiciel tirage au sort une seul fois

Bonjour,

Voilà, j'ai un script de tirage au sort qui fonctionne très bien et qui me sélectionne donc une image dans un dossier quand je clique sur Tirer au sort !
Jusque là, pas de problème.

Le soucis que j'ai, c'est que le logiciel peux tirer au sort deux voir trois fois la même image quand je clique sur "Tirer au sort". J'aimerai en fait que par exemple l'image 2 déjà tiré au sort ne peux plus retomber.

Merci de votre aide:

Dim pathMap : pathMap = CreateObject("Wscript.Shell").CurrentDirectory & "\inscrit\"
Dim ArrayList : Set ArrayList = CreateObject("System.Collections.ArrayList")    

Sub Window_Onload()
    ResizeTo 1500,820
End Sub

Sub ChangeMap()
    Call LoadMap()
    Dim icount, i,temp, irnd
    icount = ArrayList.Count
    Randomize
    For i = 1 to icount
       irnd = ((icount-i) * Rnd)
       temp = ArrayList(icount-i)
       Select Case  i
          Case 1 : image1.Src = ArrayList(irnd)
       End Select
       ArrayList(icount-i) = ArrayList(irnd)
       ArrayList(iRnd) = temp
    Next
End Sub

Sub LoadMap()
    ArrayList.Clear
    For Each file in CreateObject("Scripting.FileSystemObject").GetFolder(pathMap).Files
        ArrayList.Add file.path
    Next
End Sub