Another class to use at your own risk. Can be used like:
Dim queue As New Queue() Call queue.insert("Domino") Call queue.insert("Notes") Call queue.insert("R5") Print "Queue is: " & queue.toString() Dim tmp As String Do While Not queue.isEmpty() If Isobject(queue.getFront()) Then tmp = queue.remove().toString() Else tmp = queue.remove() End If Print "Element is: " & tmp Loop