有没有一种简单的方法可以随机化VB.NET中的列表？

Imports System.Collections.Generic
Imports System.Random

Module Module1
    Sub Main()
        ' 创建一个包含数字的列表
        Dim list As New List(Of Integer)
        list.Add(1)
        list.Add(2)
        list.Add(3)
        list.Add(4)
        list.Add(5)

        ' 随机化列表
        list = Shuffle(list).ToList()

        ' 输出随机化后的列表
        For Each item In list
            Console.WriteLine(item)
        Next
    End Sub

    Function Shuffle(Of T)(ByVal list As IList(Of T)) As IEnumerable(Of T)
        Dim rng = New Random()
        For i = list.Count - 1 To 1 Step -1
            Dim j = rng.Next(0, i + 1)
            Dim temp = list(j)
            list(j) = list(i)
            list(i) = temp
        Next
        Return list
    End Function
End Module