For Each...Next

Se trata de una variante de la estructura For...Next, y su misión consiste en ejecutar un bloque de código por cada uno de los elementos existentes en un array o colección. El Código fuente 142 muestra su sintaxis.

For Each Elemento In ColecArray

' código

' ......

[Exit For]

' código

' ......

Next

Código fuente 142

El Código fuente 143 muestra un ejemplo del uso de esta estructura de control

Sub Main()
' crear un array y rellenarlo con valores
Dim lsColores() As String = {"Azul", "Verde", "Marino", "Violeta"}
Dim lsColor As String
' en cada iteración se obtiene un elemento
' del array lsColores, y se guarda en la variable lsColor
For Each lsColor In lsColores
Console.WriteLine(lsColor)
Next
End Sub

Código fuente 143