Queue tárolási osztály

Private qe As Queue = New Queue()

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    qe.Enqueue(TextBox1.Text)
    UpdateLabel1()
End Sub

Private Sub UpdateLabel1()
    label1.Text = qe.Count.ToString()
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim array() As Object = qe.ToArray()
    ListBox1.Items.Clear()
    Dim s As Object
    For Each s In array
        ListBox1.Items.Add(s.ToString())
    Next
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
    If qe.Count > 0 Then
        Label3.Text = qe.Dequeue().ToString()
        UpdateLabel1()
    End If
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    If qe.Count > 0 Then
        Label2.Text = qe.Peek().ToString()
        UpdateLabel1()
    End If
End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
    qe.Clear()
    UpdateLabel1()
End Sub