StringCollection.Add Method adds a string 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", "green"} myCol.AddRange(myArr) PrintValues(myCol) End Sub Public Shared Sub PrintValues(myCol As IEnumerable) Dim obj As [Object] For Each obj In myCol Console.WriteLine(" {0}", obj) Next obj End Sub End Class