Collections VB.Net Tutorial

Imports System
Imports System.Collections
Imports Microsoft.VisualBasic
Public Class MainClass
    Public Shared Sub Main()
         Dim myAL As New ArrayList()
        myAL.Add("the")
        myAL.Add("quick")
        myAL.Add("brown")
        myAL.Add("fox")
        myAL.Add("jumps")
        myAL.Add("over")
        myAL.Add("the")
        myAL.Add("lazy")
        myAL.Add("dog")
        myAL.Add("in")
        myAL.Add("the")
        myAL.Add("barn")
        Console.WriteLine("The ArrayList contains the following values:")
        PrintIndexAndValues(myAL)
        Dim myString As [String] = "the"
        Dim myIndex As Integer = myAL.IndexOf(myString)
        Console.WriteLine("The first occurrence of ""{0}"" is at index {1}.", myString, myIndex)
        myIndex = myAL.IndexOf(myString, 4)
        Console.WriteLine(myIndex)
        myIndex = myAL.IndexOf(myString, 6, 6)
        Console.WriteLine(myIndex)
        myIndex = myAL.IndexOf(myString, 11)
        Console.WriteLine(myIndex)
    End Sub
    Public Shared Sub PrintIndexAndValues(ByVal myList As IEnumerable)
        Dim i As Integer
        Dim obj As [Object]
        For Each obj In myList
            Console.WriteLine("[{0}]:{1}", i, obj)
            i = i + 1
        Next obj
    End Sub
End Class