Public Class Persons _ Public persons As ArrayList Public Sub SetPersons(ByVal person1 As Person, ByVal person2 As Person, ByVal person3 As Person) persons = New ArrayList persons.Add(person1) persons.Add(person2) persons.Add(person3) End Sub Public Sub Dump() For Each person As Person In persons Trace.WriteLine(person.Name) Trace.WriteLine(person.Age) Next End Sub End Class