Module Module1

    Sub Main()
        Dim myList As New List(Of Integer)
        myList.Add(2)
        myList.Add(4)
        myList.Add(6)
        myList.Add(8)
        myList.Add(10)

        myList.Insert(1, 3)

        For i As Integer = 0 To myList.Count - 1
            Console.WriteLine(myList.Item(i))
        Next
        Console.WriteLine("")

        Dim number As Integer
        For Each number In myList
            Console.WriteLine(number)
        Next

        Dim pinaka() As String = {"θέση 1", "θέση 2", "θέση 3"}
        For Each str As String In pinaka
            Console.WriteLine(str)
        Next

        Dim aList As New ArrayList
        aList.Add("string")
        aList.Add(22)
        For i As Integer = 0 To aList.Count - 1
            Console.WriteLine(aList.Item(i))
        Next

        Console.ReadKey()

    End Sub

End Module
