ASP.NET

Imports System.Web<br />
Imports System.Web.UI<br />
Imports System.Web.Script.Serialization<br />
Imports System.Web.UI.WebControls<br />
<br />
<br />
Public Class FormFooter<br />
    Inherits WebControl<br />
    Implements IPostBackEventHandler<br />
 <br />
    Public Event Click As EventHandler<br />
    Private _SM As ScriptManager<br />
  <br />
<br />
 <br />
    Protected Overrides Sub CreateChildControls()<br />
<br />
<br />
        MyBase.CreateChildControls()<br />
        Dim parent As Control<br />
        Dim container As Control<br />
        If SM Is Nothing OrElse Not SM.EnablePartialRendering Then<br />
<br />
            container = New Control<br />
            parent = New Control<br />
<br />
<br />
        Else<br />
<br />
<br />
<br />
<br />
            Dim up As UpdatePanel = New UpdatePanel<br />
            up.ID = "UpPan2"<br />
            Dim trigger As AsyncPostBackTrigger = New AsyncPostBackTrigger()<br />
<br />
            trigger.ControlID = ClientID<br />
            trigger.EventName = "Click"<br />
<br />
            up.Triggers.Add(trigger)<br />
            container = up.ContentTemplateContainer<br />
            parent = up<br />
        End If<br />
<br />
        Dim cmdUpdate As Button<br />
        Dim lblUpdate As Label<br />
        lblUpdate = New Label<br />
        lblUpdate.ID = ClientID & "$txtTime"<br />
        lblUpdate.Text = " N O W"<br />
<br />
<br />
        cmdUpdate = New Button<br />
        cmdUpdate.Text = "Add Time"<br />
        cmdUpdate.ID = ClientID & "$cmdUpdate"<br />
<br />
<br />
        container.Controls.Add(lblUpdate)<br />
<br />
        container.Controls.Add(cmdUpdate)<br />
<br />
<br />
        Controls.Add(parent)<br />
<br />
<br />
    End Sub<br />
    Private ReadOnly Property SM() As ScriptManager<br />
        Get<br />
            If _SM Is Nothing Then<br />
                _SM = ScriptManager.GetCurrent(Page)<br />
            End If<br />
            Return _SM<br />
        End Get<br />
    End Property<br />
<br />
<br />
   <br />
<br />
    Public Sub RaisePostBackEvent(ByVal eventArgument As String) Implements System.Web.UI.IPostBackEventHandler.RaisePostBackEvent<br />
        Select Case eventArgument<br />
            Case "click"<br />
                OnClick(New EventArgs)<br />
        End Select<br />
    End Sub<br />
    Protected Sub OnClick(ByVal e As EventArgs)<br />
        SM.RegisterDataItem(Me, "<h3>Sending data from click3</h3>")<br />
        RaiseEvent Click(Me, e)<br />
<br />
    End Sub<br />
<br />
<br />
End Class