1<%@ Register TagPrefix="Acme" TagName="Message" Src="userctrl2_vb.ascx" %>
2
3<html>
4
5  <script language="VB" runat="server">
6
7      Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
8          MyMessage.MessageText = "Message text changed!"
9          MyMessage.Color = "red"
10      End Sub
11
12  </script>
13
14<body style="font: 10pt verdana">
15
16  <h3>A Simple User Control w/ Properties</h3>
17
18  <form runat="server">
19
20    <Acme:Message id="MyMessage" MessageText="This is a custom message!" Color="blue" runat="server"/>
21
22    <p>
23
24    <asp:button text="Change Properties" OnClick="SubmitBtn_Click" runat=server/>
25
26  </form>
27
28</body>
29</html>
30