<%@ Page Language="vb" %>
Sub Page_Load()
If Application.Count > 0 Then
Application.RemoveAll()
Message.Text = "Application collection cleared."
Else
Message.Text = "Application collection is already empty."
End If
End Sub