VB.Net Example 4 - Initializing Arrays

Module Example4
    Sub Main()
        Dim sport(5) As String
        sport(0) = "Soccer"
        sport(1) = "Cricket"
        sport(2) = "Hockey"
        sport(3) = "Tennis"
        sport(4) = "Shooting"
        sport(5) = "Swimming"
        Console.WriteLine("Name of sport " & sport(2))
        For Each i As String In sport
            Console.WriteLine(i)
        Next
        Console.ReadLine()
    End Sub

End Module