<%@ Page Language="vb" %>
Controls collection example
Sub Page_Load()
Message.Text = "There are currently " & Controls.Count & _
" controls on the page.
"
Dim Message2 As New Label
Controls.AddAt(Controls.Count - 1, Message2)
Message2.Text = "There are now " & Controls.Count & _
" controls on the page."
End Sub