Imports System

Imports System.Collections.Generic

​

Public Module Module1

    Public Sub Main()

        Dim FirstNumbers as New List(Of String)()

        FirstNumbers.Add("One")

        FirstNumbers.Add("Two")

        FirstNumbers.Add("Three")

        FirstNumbers.Add("Four")

        Console.WriteLine("List created")

        For Each listItem As String In FirstNumbers

        Console.WriteLine("Checking list in order: " & listItem )

        Next

    Dim numItems as integer

    numItems = FirstNumbers.Count

    Console.WriteLine("The number of items in this list is " & numItems )

    Console.WriteLine("The 1st item in this list is " & FirstNumbers.Item(0) )

    Console.WriteLine("The 4th item in this list is " & FirstNumbers.Item(3) )

    For i = 0 to numItems - 1

    Console.WriteLine(FirstNumbers.Item(i))

    Next i

    End Sub

​

End Module