Imports System.Collections

Public Class Application
	Public Shared Sub Main()
		Dim lista As New ArrayList
		
		lista.Add("egy")
		lista.Add("kettő")
		lista.Add("három")
		lista.Add("négy")

		For Each nev As String In lista
    			Console.WriteLine(nev)
		Next nev
		
	End Sub
End Class