RosettaCodeData/Task/Loops-Foreach/Visual-Basic-.NET/loops-foreach.vb

Dim list As New List(Of String)
list.Add("Car")
list.Add("Boat")
list.Add("Train")

For Each item In list
    Console.WriteLine(item)
Next