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.Remove("One")
Display(numbers)
numbers.RemoveAt(0)
Display(numbers)
numbers.Clear()
Console.WriteLine("Count: {0}", numbers.Count)
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