Public Class Tester
Public Shared Sub Main
Dim fruitArray() As String = {"Oranges", "Apples", "Grapes", "Bananas", "Blueberries"}
For Each fruit As String In fruitArray
Console.WriteLine(fruit)
Next fruit
End Sub
End Class
Oranges
Apples
Grapes
Bananas
Blueberries