<%@ Page Language="VB" AutoEventWireup="True" %>
<html>
<head>
<script language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
Dim values As New ArrayList()
values.Add("Item 1")
values.Add("Item 2")
values.Add("Item 3")
values.Add("Item 4")
values.Add("Item 5")
values.Add("Item 6")
ListBox1.DataSource = values
ListBox1.DataBind()
End If
End Sub 'Page_Load
Sub SubmitBtn_Click(sender As Object, e As EventArgs)
If ListBox1.SelectedIndex > - 1 Then
Label1.Text = "You chose: " & ListBox1.SelectedItem.Text
End If
End Sub 'SubmitBtn_Click
</script>
</head>
<body>
<form runat=server>
<h3>Data Binding ListBox</h3>
<asp:ListBox id="ListBox1"
Width="100px"
runat="server"/>
<asp:button id="Button1"
Text="Submit"
OnClick="SubmitBtn_Click"
runat="server" />
<asp:Label id="Label1"
font-name="Verdana"
font-size="10pt"
runat="server"/>
</form>
</body>
</html>