Estrazione senza ripetizioni

Module Module1
    ' dati i numeri da 1 a 90 effettuare un'estrazione casuale di tutti i numeri

    Sub Main()
        Dim sacchetto As New List(Of Integer) ' creo il sacchetto inizialmente vuoto
        For i = 1 To 90
            sacchetto.Add(i) ' lo riempio con i numeri da 1 a 90
        Next
        Dim rnd As New Random ' generatore di numeri casuali di sistema
        While sacchetto.Count > 0 ' fino a quando ci sono numeri
            Dim posizione = rnd.Next(0, sacchetto.Count) ' prendo una posizione a caso nel sacchetto (mi faccio restituire un numero a caso maggiore o uguale a 0 (incluso) e minore di sacchetto.Count, cioè totale dei numeri nel sacchetto.
            Dim numerocasuale As Integer = sacchetto(posizione) ' memorizzo il numero che si trova in quella posizione
            sacchetto.RemoveAt(posizione) ' estraggo il numero dal sacchetto per evitare di estrarlo nuovamente
            Console.WriteLine("Numero estratto: {0} - numeri nel sacchetto: {1}", numerocasuale, sacchetto.Count) ' stampo il numero estratto
        End While
    End Sub

End Module