Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Public Class Example
Public Shared Sub Main()
Dim numbers As New List(Of String)
numbers.Add("One")
numbers.Add("Two")
numbers.Add("Four")
numbers.Add("Five")
Dim readOnlyNumbers As New ReadOnlyCollection(Of String)(numbers)
For Each num As String In readOnlyNumbers
Console.WriteLine(num)
Next
Console.WriteLine(readOnlyNumbers.Count)
Console.WriteLine(readOnlyNumbers.Contains("Four"))
Console.WriteLine(readOnlyNumbers(3))
Console.WriteLine(readOnlyNumbers.IndexOf("Five"))
numbers.Insert(2, "New Value")
For Each num As String In readOnlyNumbers
Console.WriteLine(num)
Next
Dim dinoArray(readOnlyNumbers.Count + 1) As String
readOnlyNumbers.CopyTo(dinoArray, 1)
Console.WriteLine(dinoArray.Length)
For Each num As String In dinoArray
Console.WriteLine(num)
Next
End Sub
End Class