VB\Pagelet7.aspx Font Size:
C# Source: CS\Pagelet7.aspx   CS\Pagelet7.ascx   
VB Source: VB\Pagelet7.aspx   VB\Pagelet7.ascx   
JScript Source: JS\Pagelet7.aspx   JS\Pagelet7.ascx   
VS.NET: Pagelets.csproj   Pagelets.vbproj    
<%@ Register TagPrefix="Acme" TagName="BookList" Src="pagelet7.ascx" %>

<html>

    <script language="VB" runat="server">

        Sub Page_Load(Sender As Object, E As EventArgs)

            Page.Controls.Add(New HtmlGenericControl("hr"))

            Dim c1 As Control = LoadControl("pagelet7.ascx")
            CType(c1, Pagelet7VB).Category = "business"
            Page.Controls.Add(c1)

            Page.Controls.Add(New HtmlGenericControl("hr"))

            Dim c2 As Control = LoadControl("pagelet7.ascx")
            CType(c2, Pagelet7VB).Category = "trad_cook"
            Page.Controls.Add(c2)

            Page.Controls.Add(New HtmlGenericControl("hr"))

            Dim c3 As Control = LoadControl("pagelet7.ascx")
            CType(c3, Pagelet7VB).Category = "mod_cook"
            Page.Controls.Add(c3)
        End Sub

    </script>

<body style="font: 10pt verdana">

  <h3>Creating User Controls Programmatically</h3>

</body>
</html>