Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Public Class Demo
Public Shared Sub Main()
Dim numbers As New Collection(Of String)
numbers.Add("One")
numbers.Add("Two")
numbers.Add("Five")
numbers.Add("Three")
numbers.Insert(2, "Zero")
Display(numbers)
Console.WriteLine(numbers(2))
End Sub
Private Shared Sub Display(ByVal cs As Collection(Of String))
Console.WriteLine()
For Each item As String In cs
Console.WriteLine(item)
Next item
End Sub
End Class