<%@ Page Language="VB" %>
Sub Page_Load (Sender As Object, E As EventArgs)
Dim al As New ArrayList(5)
al.Add("one")
al.Add(2)
al.Add(False)
al.Add(New System.Object())
Response.Write("Successfully added " & al.Count & " different types of objects to an ArrayList.")
End Sub