Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim 1stNumbers as New List (of String) ()

        1stNumbers.Add("one")

        1stNumbers.Add("two")

        1stNumbers.Add("three")

        1stNumbers.Add("four")

        1stNumbers.Add("six")

        Console.WriteLine("List created")

        For Each listItem as string In 1stNumbers

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

    Next

    Dim numItems as integer 

    numItems = 1stnumbers.count

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

    Console.WriteLine("The first item in this list is

    End Sub

End Module