Private lstNumbers As List
lstNumbers.Initialize
Dim UpperRange As Int = 1000
Dim RandomNumber As Int = Rnd(1, UpperRange + 1)
For i = 0 To 9
Do Until lstNumbers.IndexOf(RandomNumber) = -1
RandomNumber = Rnd(1, UpperRange + 1)
Loop
lstNumbers.Add(RandomNumber)
Next
lstNumbers.Sort(True)
Log(lstNumbers) 'ignore