[deviato]

Risolto..

            regist(0) = rnd.Next(1, number(0) + 1)
            For i = 1 To 4
                regist(i) = rnd.Next(1, number(0) + 1)
                a = i - 1
                While (a >= 0)
                    If (regist(i) = regist(a)) Then
                        regist(i) = rnd.Next(1, number(0) + 1)
                        a = i - 1
                    Else
                        a = a - 1
                    End If
                End While
            Next