<script runat="server">
sub Page_Load
if Not Page.IsPostBack then
dim navigate=New SortedList
navigate.Add("RadioButtonList","/aspnet/control_radiobuttonlist.asp")
navigate.Add("CheckBoxList","/aspnet/control_checkboxlist.asp")
navigate.Add("DropDownList","/aspnet/control_dropdownlist.asp")
navigate.Add("ListBox","/aspnet/control_listbox.asp")
rb.DataSource=navigate
rb.DataValueField="Value"
rb.DataTextField="Key"
rb.DataBind()
end if
end sub
sub navigate(s as Object, e As EventArgs)
response.redirect(rb.SelectedItem.Value)
end sub
</script>
<html>
<body>
<form runat="server">
<asp:RadioButtonList id="rb" runat="server"
AutoPostBack="True" onSelectedIndexChanged="navigate" />
</form>
</body>
</html>