[VB.NET] ordinamento casuale degli array

[tas]

Dim arr(5) As Integer
Dim i As Integer

arr(1) = 1
arr(2) = 10
arr(3) = 8
arr(4) = 2
arr(5) = 9

Array.Sort(arr)

For i = 1 To 5
    Console.WriteLine(arr(i))
Next