Queue Item Count
Imports System Imports System.Collections Imports System.Collections.Specialized Public Class MainClass Shared Sub Main(ByVal args As String()) Dim m_Queue As New Queue m_Queue.Enqueue("Text") m_Queue.Enqueue("Text") m_Queue.Enqueue("Text") Dim txt As String = DirectCast(m_Queue.Dequeue(), String) Console.WriteLine(txt) For Each str As String In m_Queue.ToArray() Console.WriteLine(str) Next str Console.WriteLine(m_Queue.Count ) End Sub End Class