Public Class Tester
Public Shared Sub Main
Dim wordCollection As New Collection
wordCollection.Add("This")
wordCollection.Add("is")
wordCollection.Add("a")
wordCollection.Add("collection")
wordCollection.Add("of")
wordCollection.Add("words")
' ----- Insert a word after item 3.
wordCollection.Add("slightly", , , 3)
' ----- Insert a word before item 5.
wordCollection.Add("longer", , 5)
For Each word As String In wordCollection
Console.WriteLine(word)
Next word
End Sub
End Class
|