COLAS

Las  colas es un grupo ordenado de datos homogéneos en donde los elementos se agregan en un extremo y se sacan por el otro extremo. Por eso es conocido como una estructura fifo

Operaciones básicas son:

Enqueue: meter elementos

Dequeue: sacar elementos

En la cola se utiliza el siguiente código:

Imports System.Collections.Queue             'se declara la libreria para utilizar la cola

Public Class cola

Dim cola As New Queue                     'se declara la cola

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim dato As String = TextBox1.Text

        cola.Enqueue(dato)                           'incluye datos a la cola

        MsgBox("se ha incluido el numero: " & dato)

        TextBox1.Clear()

        TextBox1.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim valor As String = ""

        valor = cola.Dequeue          'saca el primer dato de la cola

        MsgBox(valor)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        MsgBox(cola.Count)            'cuenta los elementos de la cola

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim elementos As String = ""       'imprime todos los valores de la cola

        For Each dato In cola

            elementos = elementos & " " & dato

        Next

        MsgBox(elementos)

    End Sub

En este link  podrá obtener el proyecto ya funcional.

https://drive.google.com/file/d/0B4efdeDUNI9XejV5dzdLU005TDg/edit?usp=sharing