Asp Control ASP.Net

<%@ Page 
    language=VB 
    debug=true 
    src="EventsInCodeBehind.vb" 
    Inherits="clsEventsInCodeBehind" 
%>


Inheriting Events in a Code-Behind Files





    id="lblMessage1"
    runat="Server"
/>



    id="lblMessage2"
    runat="Server"
/>



Enter text to uppercase:


    id="txtUCase"
    runat="Server"
/>



Add Numbers:


    id="txtNumber1"
    runat="Server"
/>


    id="txtNumber2"
    runat="Server"
/>
    id="butAdd"
    text="Add"
    runat="server"
/>



<%--
Public Class clsEventsInCodeBehind
    Inherits System.Web.UI.Page
    Protected WithEvents txtUCase As _
        System.Web.UI.WebControls.TextBox
    Protected WithEvents txtNumber1 As _
        System.Web.UI.WebControls.TextBox
    Protected WithEvents txtNumber2 As _
        System.Web.UI.WebControls.TextBox
    Protected WithEvents lblMessage1 As _
        System.Web.UI.WebControls.Label
    Protected WithEvents lblMessage2 As _
        System.Web.UI.WebControls.Label
    Protected WithEvents butAdd As _
        System.Web.UI.WebControls.Button
    Private Sub Page_Init(ByVal sender As System.Object, _
        ByVal e As System.EventArgs)
        lblMessage1.Text = Date.Now
        txtUcase.AutoPostBack = True
    End Sub
    Private Sub Page_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs)
        lblMessage2.Text = Date.Now
    End Sub
    Sub txtUCase_Change(Sender As System.Object, _
        E As System.EventArgs) Handles txtUCase.TextChanged
        Dim TempString as String
        TempString = txtUCase.Text
        txtUCase.Text = TempString.ToUpper()
    End Sub
    Sub butAdd_Click(Sender As System.Object, _
        E As System.EventArgs) Handles butAdd.Click
        butAdd.Text = CSng(txtNumber1.Text) + CSng(txtNumber2.Text)
    End Sub
End Class
--%>