Public Sub QueueTest()
Dim qx As New System.Collections.Queue
Dim o() As Object = {1, 2, 3, 4, 5, 6, 7, 8, 9, 0}
Dim x As Integer = 0
qx.Enqueue("Dog")
qx.Enqueue("Cat")
qx.Enqueue("Rat")
qx.Enqueue("Mouse")
qx.Enqueue("Hat")
qx.Enqueue(Me)
qx.Enqueue(5)
qx.Enqueue(7.14)
Dim cnt As Integer = qx.Count
Dim bl As Boolean = qx.Contains("Mouse")
Do Until qx.Count = 0
o(x) = qx.Dequeue()
Stop ' results in your locals window
x += 1
Loop
End Sub