Mega Code Archive
Assign value by index
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