Dim arrayRND As new ArrayList(100)
Dim liste As New ArrayList(100)
Dim r As New Random(system.Environment.TickCount) 
dim index as Integer 
 
'eine Liste (liste) mit Zahlen füllen 1-100
For i As Integer =1 To 100
	liste.Add (i) 
Next i
 
'eine Liste (arrayRND) erstellen
'mit allen Werten aus liste in zufälliger Reihenfolge
Do  while liste.Count > 0	
	index = cint((r.NextDouble*(liste.count-1))+1)-1
	arrayRND.Add (liste.Item(index)) 
	liste.removeat(index)	
Loop
 
'Ausgabe der Zahlen per Debug.Print
For i As Integer =0 To arrayRND.Count -1
	debug.Print (arrayRND.Item(i))
Next i

Gruss mm78pr

http://msdn.microsoft.com/de-de/default.aspx