<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <%@ OutputCache Duration="30" VaryByParam="None" %> <html xmlns="http://www.w3.org/1999/xhtml" > <head> <title>Substitution Control</title> </head> <body> <form id="form1" runat="server"> <div> <asp:Label ID="Label1" Runat="server" Text="Label"></asp:Label> <br /> <asp:Substitution ID="Substitution1" Runat="server" methodName="GetUpdatedTime" /> <br /> </div> </form> </body> </html> File: Default.aspx.vb Partial Class _Default Inherits System.Web.UI.Page Public Shared Function GetUpdatedTime(ByVal context As HttpContext) As String Return DateTime.Now.ToLongTimeString() + " by " + _ context.User.Identity.Name End Function Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Load Label1.Text = DateTime.Now.ToLongTimeString() End Sub End Class