Recorrer un array de clases: For Each.....

Un array de objetos se puede recorrer con un simple bucle for ... next

Print "Edad", "Nombre (descendiente)"

For a = 0 To listaPersonas.Max

Print listaPersonas[a].edad, listaPersonas[a].nombre

Next

Pero tambien podemos usar este bucle: For Each...

'Recorrer un array de clases usando: For Each.....

For Each per In listaPersonas

Print per.edad, per.nombre

Next

siendo más legible y entendible a simple vista.

Nota:
Tanto la variable "a" como "per" deben de ser definidas antes de usar el código

Dim a As Integer 'para el for..next

Dim per As New ClassPersona ' para el for each

Este ejemplo es una ampliación del ejemplo anterior (enlace)