Imports System
Imports System.Linq
Public Class Program
Public Shared Sub Main()
Dim array = New Integer() {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}
Dim rnd As Random = New Random()
array = array.OrderBy(Function(x) rnd.[Next]()).ToArray()
For Each n As Integer In array
Console.Write(n & " ")
Next
End Sub
End Class
' run:
'
' 5 2 1 0 6 7 4 3 8 9
'