Imports System.Collections.Generic              

Public Module Module1

    Public Sub Main()

        'Declare a Queue(Of String) that will represent a line of customers

        Dim line As Queue(Of String) = New Queue(Of String)

​

        'Fill in the line

        line.Enqueue("David")

        line.Enqueue("Michael")

        line.Enqueue("Stephen")

    End Sub

End Module