Imports System
Public Class MainClass
Shared Sub Main()
Dim intArray( ) As Integer
Dim empArray( ) As Employee
intArray = New Integer(5) {}
empArray = New Employee(3) {}
'populate the array
Dim i As Integer
For i = 0 To empArray.Length - 1
empArray(i) = New Employee(i + 5)
Next i
Console.WriteLine("The Integer array...")
Dim intValue As Integer
For Each intValue In intArray
Console.WriteLine(intValue.ToString( ))
Next
Console.WriteLine("The Employee array...")
Dim e As Employee
For Each e In empArray
Console.WriteLine(e)
Next
End Sub
End Class
Public Class Employee
Private empID As Integer
'constructor
Public Sub New(ByVal empID As Integer)
Me.empID = empID
End Sub
End Class