Collections VB.Net Tutorial

Option Strict On
 Imports System
 Imports System.Collections
 
 Public Class Employee
     Private myEmpID As Integer
     Public Sub New(ByVal empID As Integer)
         Me.myEmpID = empID
     End Sub 'New
     Public Overrides Function ToString( ) As String
         Return myEmpID.ToString( )
     End Function 'ToString
     Public Property EmpID( ) As Integer
         Get
             Return myEmpID
         End Get
         Set(ByVal Value As Integer)
             myEmpID = Value
         End Set
     End Property
 End Class 'Employee
 Class Tester
     Shared Sub Main( )
         Dim empArray As New ArrayList( )
         Dim intArray As New ArrayList( )
         Dim i As Integer
         For i = 0 To 4
             empArray.Add(New Employee(i + 100))
             intArray.Add((i * 5))
         Next i
         For Each i In intArray
             Console.Write("{0} ", i.ToString( ))
         Next i
         Console.WriteLine(ControlChars.Lf)
         Dim e As Employee
         For Each e In empArray
             Console.Write("{0} ", e.ToString( ))
         Next e
         Console.WriteLine(ControlChars.Lf)
         Console.WriteLine("empArray.Capacity: {0}", empArray.Capacity)
     End Sub
 End Class
0 5 10 15 20
100 101 102 103 104
empArray.Capacity: 8