Adds a range of elements from an array to the end of the StringCollection
Imports System Imports System.Collections Imports System.Collections.Specialized Public Class SamplesStringCollection Public Shared Sub Main() Dim myCol As New StringCollection() Dim myArr() As [String] = {"RED", "orange", "yellow", "RED"} myCol.AddRange(myArr) PrintValues(myCol) End Sub 'Main Public Shared Sub PrintValues(myCol As IEnumerable) Dim obj As [Object] For Each obj In myCol Console.WriteLine(" {0}", obj) Next obj Console.WriteLine() End Sub End Class