<%@ Page Language="VB" %> <script runat="server"> 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 </script>