<%@ Page Language="vb" %>
<html>
<head>
<title>Controls collection example</title>
<script runat="server">
Sub Page_Load()
Message.Text = "There are currently " & Controls.Count & _
" controls on the page.<br/>"
Dim Message2 As New Label
Controls.AddAt(Controls.Count - 1, Message2)
Message2.Text = "There are now " & Controls.Count & _
" controls on the page."
End Sub
</script>
</head>
<body>
<asp:label id="Message" runat="server"/>
</body>
</html>