Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Public Class CodeBehindMultiple
  Inherits Page

  Protected WithEvents lblHeader As Label

  Overridable Sub Page_Load
    lblHeader.Text = HeaderMessage()
  End Sub


  Function HeaderMessage() As String
    Dim strMessage As String

    strMessage = "Welcome to this Web site!<br>"
    strMessage &= "The current date is "
    strMessage &= DateTime.Now.ToString( "D" )
    Return strMessage
  End Function


End Class