Imports System

Imports System.Collections.Generic

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

    Dim iRand As Integer    

    Dim RAND As New List(of String)

    RAND.Add("A")

    RAND.Add("B")

    RAND.Add("C")

    RAND.Add("D")

    RAND.Add("E")

    RAND.Add("F")

    RAND.Add("G")

    RAND.Add("H")

    RAND.Add("I")

    RAND.Add("J")

    RAND.Add("K")

    RAND.Add("L")

    RAND.Add("M")

    RAND.Add("N")

    RAND.Add("O")

    RAND.Add("P")

    RAND.Add("Q")

        Randomize

        Do While RAND.Count > 0

            iRand = Math.Floor(Rnd(1)*RAND.Count)

            Console.writeline(RAND(iRand))

            RAND.RemoveAt(iRand)

        Loop

    End Sub

End Module