Colas en Visual Basic .net Windows Form

hola que tal amigos taringueros... aqui les dejo un pequeño post,
sobre programacion en Visual Basic 2010, en Windows Form.

este pequeño ejemplo es de colas, aqui aplicamos la regla de el primer dato en entrar es el primer dato en salir,
acontinuacion mi linea de codigo:

Public Class Form1

Private Sub Button_Evaluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Evaluar.Click

'declaramos variables

Dim dato As Queue(Of String) = New Queue(Of String)()
Dim primero As String
Dim segundo As String
Dim tercero As String
Dim cuarto As String

'asignando los textos que el usuario ingresara a las variables declaradas
primero = Texto_primero.Text
segundo = Texto_segundo.Text
tercero = Texto_tercero.Text
cuarto = Texto_cuarto.Text

'usando la palabra reservada Enqueue para poder ingresar a la cola de uno en uno
dato.Enqueue(primero)
dato.Enqueue(segundo)
dato.Enqueue(tercero)
dato.Enqueue(cuarto)

For Each extraer As String In dato
MsgBox("El valor obtenido de la cola es: " & extraer)

Next
'para que cuando se acaben las impresiones del MsgBox se limpien los textos ingresados, por si se kiere
'ingresar datos de nuevo(opcional)

Texto_primero.Text = ""
Texto_segundo.Text = ""
Texto_tercero.Text = ""
Texto_cuarto.Text = ""

End Sub

Private Sub Button_terminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_terminar.Click
'boton de salida, de igual manera en ves de usar end podemos usar close()
End

End Sub

End Class

si tienen alguna duda, se las contestare a la brevedad o les ayudare en lo que pueda,
espero les ayude en algo, ya andare por aqui, espero poder compartir informacion con ustedes...


gracias por su atencion
saludos


Comentar NO cuesta nada!!!