1: Public Class Form1
2: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
3: Dim i As Integer
4: Dim ItemList As New ArrayList()
5: ItemList.Add("Item4")
6: ItemList.Add("Item5")
7: ItemList.Add("Item2")
8: ItemList.Add("Item1")
9: ItemList.Add("Item3")
10: MsgBox("Shows Added Items")
11: For i = 0 To ItemList.Count - 1
12: MsgBox(ItemList.Item(i))
13: Next
14: 'insert an item
15: ItemList.Insert(3, "Item6")
16: 'sort itemms in an arraylist
17: ItemList.Sort()
18: 'remove an item
19: ItemList.Remove("Item1")
20: 'remove item from a specified index
21: ItemList.RemoveAt(3)
22: MsgBox("Shows final Items the ArrayList")
23: For i = 0 To ItemList.Count - 1
24: MsgBox(ItemList.Item(i))
25: Next
26: End Sub
27: End Class