[VB]อยากให้ข้อมูลใน array คละกัน เรียงกันใหม่ แบบสุ่ม ทำได้รึเปล่าครับ

            int[] a = { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 };
            a = a.AsEnumerable().OrderBy(x => Guid.NewGuid()).ToArray();

Dim MyArray() As Integer : MyArray = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Dim ShuffleArray = MyArray.Shuffle()

Imports System.Runtime.CompilerServices

Module ExtensionMethods
    <Extension()>
    Public Function Shuffle(ByVal myArray As Array) As Object()
        Dim rnd As New Random
        Dim MyRandomArray = myArray.OfType(Of Object).OrderBy(Function() rnd.Next)

        Return MyRandomArray.ToArray()
    End Function
End Module

Imports System.Runtime.CompilerServices

Module ExtensionMethods
    <Extension()> _
    Public Function Shuffle(Of T)(MyArray As T()) As T()
        Dim rnd As New Random
        Dim MyRandomArray = MyArray.OrderBy(Function() rnd.Next)

        Return MyRandomArray.ToArray()
    End Function
End Module