Partial Class Demo
    Inherits System.Web.UI.Page
    ' Log to ListBox
    Private Sub LogEvent(ByVal eventName As String)
        lstEvents.Items.Add(DateTime.Now.ToString("HH:mm:ss") & " - " & eventName)
    End Sub

    Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As EventArgs) Handles Me.PreInit
        LogEvent("PreInit")
    End Sub

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Init
        LogEvent("Init")
    End Sub

    Protected Sub Page_InitComplete(ByVal sender As Object, ByVal e As EventArgs) Handles Me.InitComplete
        LogEvent("InitComplete")
    End Sub

    Protected Sub Page_PreLoad(ByVal sender As Object, ByVal e As EventArgs) Handles Me.PreLoad
        LogEvent("PreLoad")
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        LogEvent("Load")
    End Sub

    Protected Sub btnTest_Click(ByVal sender As Object, ByVal e As EventArgs)
        LogEvent("Button Click")
    End Sub

    Protected Sub Page_LoadComplete(ByVal sender As Object, ByVal e As EventArgs) Handles Me.LoadComplete
        LogEvent("LoadComplete")
    End Sub

    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As EventArgs) Handles Me.PreRender
        LogEvent("PreRender")
    End Sub

    Protected Overrides Sub Render(ByVal writer As HtmlTextWriter)
        LogEvent("Render")
        MyBase.Render(writer)
    End Sub

    Protected Sub Page_Unload(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Unload
        ' Unload cannot write to UI controls.
        ' Use Debug or Trace if needed.
        System.Diagnostics.Debug.WriteLine("Unload")
    End Sub
End Class