Imports System

Imports System.Collections

Public Module Module1

    Public Sub Main()

        dim arlist As New ArrayList

        dim i as integer=0

        While i<5

            dim lst(3) as string

            lst(0) = "A" & i.ToString()

            lst(1) = "B" & i.ToString()

            lst(2) = "X" & i.ToString()           

            arlist.Add(lst)

            i+=1

        End While

        i=0

        For Each t as string() IN arlist

        Console.WriteLine(i & t(0).ToString())

        Console.WriteLine(i & t(1).ToString())

        Console.WriteLine(i & t(2).ToString())

    Next        

    End Sub

End Module