[VB6] Immagini random

[robx8]

Ciao, mi è sorto un'altro problema. Ho un Form2 dove ad ogni avvio lo sfondo cambia in random, in questo Form c'è un pulsante che mi apre un altro form (Form3). Quello che voglio fare è mettere un controllo in maniera che l'immagine random usata sul Form1 non possa essere ripetuta sul Form2, in pratica non voglio avere due Form con la stessa immagine. Ho provato in questo modo:

Le IMAGE in array le ho inserite nel Form1

Private Sub Form_Load()

Dim sfondo

Randomize

sfondo = Int((2 * Rnd) + 1)

Do While (sfondo = Form2.Picture)

sfondo = Int((2 * Rnd) + 1)

Loop

Form3.Picture = Form1.Image1(sfondo - 1)

ma non funziona penso che il problema sia nel confronto del While
ma non so come altro fare. grazie