<%@ Page language="vb" autoeventwireup="false" codebehind=""%>
<html>
<head>
<title>Chapter 6: ASP.NET List Controls</title>
<script language="VB" runat="server" ID=Script1>
Sub AddButton_Click(sender As Object, e As EventArgs)
Dim NewItem = New ListItem(ItemText.Text)
If Not ItemList.Items.Contains(NewItem) Then
ItemList.Items.Add(ItemText.Text)
End If
End Sub
</script>
</head>
<body>
<form runat="server">
<h3>Using CheckBoxList</h3>
<h4>Adding items with the Add method</h4>
Item Text:<br>
<asp:textbox id="ItemText" runat="Server" />
<asp:button text="Add" runat="server" ID="AddButton" onclick="AddButton_Click"/>
<br>
<asp:checkboxlist id="ItemList" runat="server"/>
</form>
</body>
</html>