Class Test
Public Sub New(ByVal _name As String)
name = _name
End Sub
Private name As String
Public Sub Show()
Console.WriteLine(name)
End Sub
End Class
Module Module1
Sub Main()
Dim list As List(Of Test) = New List(Of Test)
list.Add(New Test("Leo"))
list.Add(New Test("Harry"))
list.Add(New Test("James"))
list.Add(New Test("Emily"))
list.Add(New Test("Isla"))
list.Add(New Test("Isabella"))
For Each element As Test In list
element.Show()
Next
End Sub
End Module
' run:
'
' Leo
' Harry
' James
' Emily
' Isla
' Isabella