'       PROPERTIES

'   https://docs.microsoft.com/en-us/dotnet/api/system.collections.arraylist?view=netframework-4.8

' Capacity: gets or sets the number of elements that the Arraylist can contain

' Count: Gets the number of elements actuallu contained in the Arraylist

' IsFixedSize: gets a value indicating whether the Arraylist has a fixed size

' IsReadOnly: gets a value indicating whether the Arraylist is read-only

' Item: gets or sets the element at the specified index

​

Imports System

Imports System.Collections

Public Module Module1

    Public Sub Main()

        ' Dim al As New ArrayList() OR

        Dim al As ArrayList = New ArrayList()

        Dim i As Integer

        Console.WriteLine("Adding some numbers: ")

        al.Add(45)

        al.Add(78)

        al.Add(33)

        al.Add(56)

        al.Add(12)

        al.Add(23)

        al.Add(9)

        Console.WriteLine("Capacity: {0} ", al.Capacity)

        Console.WriteLine("Count: {0} ", al.Count)

        ' all items in list

        Console.WriteLine("Content: ")

        For Each i In al

            Console.Write("{0} ", i)

        Next i

        Console.WriteLine()

        al.RemoveAt(0) ' Removed 45 from the list

        ' all items in list sorted

        Console.WriteLine("Sorted Content: ")

        al.Sort()

        For Each i In al

            Console.Write("{0} ", i)

        next i

        Console.WriteLine()

​

        ' all items in list sorted and reversed

        Console.WriteLine("Sorted and Reversed Content: ")

        al.Sort()

        al.Reverse()

        For Each i In al

            Console.Write("{0} ", i)

        next i

        Console.WriteLine()

​

        al.Clear() ' Removes all elements from list

    End Sub

End Module