Module Module1

    Sub Main()
        Dim tLanguages As ArrayList = New ArrayList(2)
        tLanguages.Add("Visual_Basic")
        tLanguages.Add("C#")
        tLanguages.Add("Managed_C++")
        tLanguages.Add("JScript")
        OutputStringList(tLanguages)
        tLanguages.Reverse()
        OutputStringList(tLanguages)
        tLanguages.Insert(2, "J#")
        OutputStringList(tLanguages)
        tLanguages.Sort()
        OutputStringList(tLanguages)
    End Sub
    Sub OutputStringList(ByVal pArrayList As ArrayList)
        For Each tString As String In pArrayList
            Console.Write(tString & " ")
        Next
        Console.WriteLine()
    End Sub

End Module