Option Strict On

Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        'Declare a new Queue(Of Boolean)

        Dim commands As Queue(Of Boolean) = New Queue(Of Boolean)

        'Add some values

        commands.Enqueue(True)

        commands.Enqueue(True)

        commands.Enqueue(False)

        commands.Enqueue(True)

        'Show the last 3 commands

        Console.WriteLine(commands.Dequeue())

        Console.WriteLine(commands.Dequeue())

        Console.WriteLine(commands.Dequeue())

    End Sub

End Module