シャッフル！シャッフル！

こげな感じ？（試してないですｗ

Imports System

Imports System.Collections.Generic

Public Class ShufflableList(Of T)

    Inherits List(Of T)


    Public Sub Shuffle()
        ShufflableList(Of T).Shuffle(Me)
    End Sub


    Public Shared Sub Shuffle(ByVal list As List(Of T))
        Dim r As New Random()
        For i As Integer = 0 To list.Count - 1
            Dim value As Integer = r.Next(list.Count)

            Dim temp As T = list.Item(i)

            list.Item(i) = list.Item(value)

            list.Item(value) = temp
        Next
    End Sub


End Class