>>922
Dim ary2 As Integer() = ary.OrderBy(Function(i) Guid.NewGuid()).ToArray()