Imports System

Imports System.Collections.Generic 

​

​

Public Module Module1

    Public Sub Main()

        Dim lstNumbers as New List(Of String)()

        lstNumbers.Add("One")

        lstNumbers.Add("Two")

        lstNumbers.Add("Three")

​

        Console.WriteLine("List created")

        For Each ListItem As String In lstNumbers

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

    Next

    Dim numItems as integer

    numItems = lstNumbers.Count

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

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

    Console.WriteLine("The 5th item in this list is: " & lstNumbers.Item(4) )

    Console.WriteLine("The 6th item in this list is: " & lstNumbers.Item(5) )

    For i = 0 To numItems - 1

    'For each number its going to loop 1 time

    Console.WriteLine(lstNumbers.Item(i))

Next i

​

End Sub

​

End Module