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(2) = "New Value"
Display(numbers)
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