Imports System

Imports System.Collections.Generic

Imports System.Runtime.CompilerServices

Imports System.Linq

​

Public Module Module1

    Public Sub Main()

        Dim randomCases1 = {"ETUIS13", "ETUIS14", "ETUIS15"}

        randomCases1.Shuffle()

        For Each prodNo In randomCases1

            'Console.WriteLine("ProdNo: " & prodNo)

        Next

        Dim casesIndex = 0

        Dim FaFSunCount = 5

        For i = 0 To FaFSunCount -1

            'Console.WriteLine("casesIndex: " & casesIndex)

            Dim caseProdNo = randomCases1.ElementAtOrDefault(casesIndex)

            Console.WriteLine("CaseProdNo: " & caseProdNo)

            If casesIndex = randomCases1.Count - 1 Then

                casesIndex = 0

            Else

                casesIndex += 1

            End If

        Next

​

    End Sub

End Module

​

Module ListExtensions

​

    Private ReadOnly rand As Random = New Random()

​

    <Extension()>

Public Sub Shuffle(Of T)(list As IList(Of T)) 

        Dim n = list.Count

        While n > 1

            n -= 1

            Dim k = rand.Next(n + 1)

            Dim value = list(k)

            list(k) = list(n)

            list(n) = value

        End While

    End Sub

​

End Module

​