Originariamente inviato da Janx
Certo... anche se ha poco significato se non è chiaro il meccanismo....

codice:
Dim Numeri As New ArrayList 
For i = 1 To 90 
    Numeri.Add(i) 
Next 

Dim Estrazione(5) As Integer 
Dim Posizione As Integer = 0 
Randomize() 

For i = 0 To Estrazione.Length - 1 
    Posizione = New Random().Next(Numeri.Count - 1) 
    Estrazione(i) = Numeri(Posizione) 
    Numeri.RemoveAt(Posizione) 
    System.Threading.Thread.Sleep(50) 
Next 

Array.Sort(Estrazione)
Facci sapere...
il meccanismo è quello descritto all'inizio del post.
in più inserisco una textbox dove all'interno inserisco i numeri da escludere separati da virgola.
il codice postato da te come lo adatto? :master: