<%@ Control Language="VB" %>
<%@ OutputCache Duration="30" VaryByParam="none" %>

<script runat="server">
   sub Page_Load(obj as object, e as eventargs)
      lblMessage.Text = "Control last viewed at " & _
         DateTime.Now.ToString("T")
   end sub   
</script>

<font size="5">Using the Output Cache</font><hr>
<asp:Label id="lblMessage" runat="server"/>