Public Class TheClass
Private i As Integer
Public Sub New(num As Integer)
i = num
End Sub
Public ReadOnly Property GetNumber As Integer
Get
Return i
End Get
End Property
End Class
Module Module1
Sub Main()
Dim TheObjects() As TheClass = {New TheClass(100),
New TheClass(387),
New TheClass(9874)}
For Each O In TheObjects
Console.WriteLine("{0}", O.GetNumber)
Next
End Sub
End Module
' run:
'
' 100
' 387
' 9874