[VB .NET] array random

[deviato]

Salve, ho un problemino.. devo creare un array di valori random tutti differenti inclusi in un certo range.
Il codice che ho pensato è il seguente

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

Però mi restituisce un array con alcuni valori duplicati, qualcuno può aiutarmi?

[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