Development ASP.Net Tutorial

<%@ Page Language="vb" %>

   
      
  Sub Page_Load()
        Application.RemoveAll()
      Application.RemoveAt(1)
      Dim I as Integer
      Dim StateVars(Application.Count) As String
      StateVars = Application.AllKeys
      For I = 0 to StateVars.Length - 1 
    Message.Text = Message.Text + StateVars(I) + " 
"
      Next I
  End Sub