User Control And Master Page ASP.Net


            <%@ Page Language=VB Debug=true %>
<%@ Reference Control="UserControlNoInterface.ascx" %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    Dim MyControl as UserControl = _
        LoadControl("UserControlNoInterface.ascx")
    lblMessage.Text = "PI: " & _
        CType(MyControl, UserControlNoInterface).ReturnPI _
        & "
PI Rounded: " _
        & CType(MyControl, UserControlNoInterface).RoundPI(3) _
        & "
Circle Circumference: " _
        & CType(MyControl, UserControlNoInterface). _
            CircleCircumference(2)
End Sub



Implementing a User Control on an ASP.NET Page


    runat="server"
    id="MyForm"    
>
    id="lblMessage"
    runat="server"
/>



<%--UserControlNoInterface.ascx
<%@ Control className="UserControlNoInterface" %>

Public ReadOnly Property ReturnPI() As Double
    Get
        ReturnPI = Math.PI
    End Get
End Property
Public Function RoundPI(DecimalPlaces as Integer)
    RoundPI = Math.Round(Math.PI, DecimalPlaces)   
End Function
Public Function CircleCircumference(TheRadius as Double) as Double
    CircleCircumference = TheRadius * TheRadius * Math.PI
End Function

--%>