VB_0005_Array2

Module Module1

    Sub Main()

        Dim names() As String = {"MATHI", "SUJITHRA", "SURAJ", "SHAKTHI"}

        For Each name As String In names
            Console.WriteLine(name)
        Next
        Console.ReadLine()

    End Sub

End Module