Aiuto vb!!

[kikkosoldato]

Cosa sbaglio?Io nn voglio che siano visualizzate due volte ( o più) le stesse immagini?

Private Sub Cmd1_Click()
'DICHIARAZIONE
Dim iCas1_1 As Integer
Dim iCas1_2 As Integer
Dim iCas1_3 As Integer
Dim iCont As Integer
'ISTRUZIONI
Do
For iCont = 1 To 7
ImgGruppo1_1(iCont).Visible = False
ImgGruppo1_2(iCont).Visible = False
ImgGruppo1_3(iCont).Visible = False
Next iCont
iCas1_1 = Int(7 * Rnd + 1)
iCas1_2 = Int(7 * Rnd + 1)
iCas1_3 = Int(7 * Rnd + 1)
Loop Until ImgGruppo1_1(iCas1_1) <> ImgGruppo1_2(iCas1_2) Or ImgGruppo1_2(iCas1_2) <> ImgGruppo1_3(iCas1_3) Or ImgGruppo1_3(iCas1_3) <> ImgGruppo1_1(iCas1_1)
ImgGruppo1_1(iCas1_1).Visible = True
ImgGruppo1_2(iCas1_2).Visible = True
ImgGruppo1_3(iCas1_3).Visible = True
End Sub