Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim intArray As Integer()
Dim empArray As Employee()
intArray = New Integer(5) {}
empArray = New Employee(3) {}
' populate the array
Dim i As Integer
' for indices 0 through 3
For i = 0 To empArray.Length - 1
empArray(i) = New Employee(i + 5)
i = i + 1
Next
End Sub
End Class
Public Class Employee
Private empID As Integer
' constructor
Public Sub New(ByVal empID As Integer)
Me.empID = empID
Console.WriteLine(empID)
End Sub
End Class
| 
