Collection Queue Example

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Collections
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms

Namespace CollectionQueueExample
    Public Partial Class Form1
        Inherits Form

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim days As Queue = New Queue()
            days.Enqueue("Sunday")
            days.Enqueue("Monday")
            days.Enqueue("Tuesday")
            days.Enqueue("Wednsday")
            days.Enqueue("Thursday")
            days.Enqueue("Friday")
            days.Enqueue("Saturday")
            MessageBox.Show(days.Dequeue().ToString())

            If days.Contains("Monday") Then
                MessageBox.Show("The queue contains Monday")
            Else
                MessageBox.Show("Does not match any entries")
            End If
        End Sub
    End Class
End Namespace