Imports System
Imports System.Collections.Generic
Public Class Example
Public Shared Sub Main()
Dim input() As String = { "One","Two","Three" }
Dim numbers As New List(Of String)(input)
Console.WriteLine("Capacity: {0}", numbers.Capacity)
For Each num As String In numbers
Console.WriteLine(num)
Next
input = New String() { "One","Four","Three" }
Console.WriteLine(vbLf & "InsertRange(3, input)")
numbers.InsertRange(3, input)
Console.WriteLine(vbLf & "output = numbers.GetRange(2, 3).ToArray")
Dim output() As String = numbers.GetRange(2, 3).ToArray()
End Sub
End Class