<%@ Page Language="VB" %> <%@ Register TagPrefix="Java2sASP" TagName="LoginForm" src="Control.ascx" %> <html><body> <form runat="server"> <Java2sASP:LoginForm id="LoginForm1" runat="server"/> </form> <asp:Label id="lblMessage" runat="server" /> </body></html> File: Control.ascx <script runat="server"> sub Submit(Sender as Object, e as EventArgs) if Page.IsValid then 'do something end if end sub sub ValidateThis(Sender as Object, args as _ ServerValidateEventArgs) if len(args.Value) < 4 then args.IsValid = false else args.IsValid = true end if end sub </script> <asp:Label id="lblMessage" runat="server" /> <table> <tr> <td valign="top">Username:</td> <td valign="top"> <asp:Textbox id="tbUserName" runat="server"/><br> <asp:CustomValidator runat="server" OnServerValidate="ValidateThis" OnClientValiate="validateLength" Display="Dynamic" ControlToValidate="tbUserName" ErrorMessage="The username must be 4 characters or longer"/> </td> </tr> <tr> <td valign="top">Password:</td> <td valign="top"> <asp:Textbox id="tbPassword" runat="server" TextMode="password" /> </td> </tr> <tr> <td align="right"> <ASP:Button id="tbSubmit" runat="server" OnClick="Submit" text="Submit" /> </td> </tr> </table>