Public Class Shuffle(Of T)
 
      Private pTimesToShuffle As Integer
 
      Public Sub New()
         pTimesToShuffle = 7
      End Sub
 
      Public Property TimesToShuffle() As Integer
         Get
            Return pTimesToShuffle
         End Get
         Set(ByVal value As Integer)
            pTimesToShuffle = value
         End Set
      End Property
 
      Public Sub ShuffleList(ByVal list As List(Of T))
         Dim rndPosition As New Random(DateTime.Now.Millisecond)
 
         For i As Integer = 1 To TimesToShuffle
            For i2 As Integer = 1 To list.Count
               SwapItems(list(rndPosition.Next(0, list.Count)), list( _
                 rndPosition.Next(0, list.Count)))
            Next
         Next
      End Sub
 
      Private Sub SwapItems(ByRef arg1 As T, ByRef arg2 As T)
         Dim strTemp As T = arg1
         arg1 = arg2
         arg2 = strTemp
      End Sub
   End Class