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
|