<%@ Page Language="VB" AutoEventWireup="false" CodeFile="CheckAndRadio.aspx.vb" Inherits="CheckAndRadio" %> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> <title>Untitled Page</title> </head> <body> <form id="form1" runat="server"> <div> <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ConnectionString %>" SelectCommand="SELECT * FROM [Books]"></asp:SqlDataSource> </div> CheckBoxList: <asp:CheckBoxList ID="CheckBoxList1" runat="server" DataSourceID="SqlDataSource1" DataTextField="Title" DataValueField="BookID"> </asp:CheckBoxList><br /> RadioButtonList:<br /> <asp:RadioButtonList ID="RadioButtonList1" runat="server" DataSourceID="SqlDataSource1" DataTextField="Title" DataValueField="BookID"> </asp:RadioButtonList><br /> <asp:Button ID="Button1" runat="server" Text="Click Me!" /> <br /> <br /> <asp:Label ID="results" runat="server"></asp:Label> </form> </body> </html> File: CheckAndRadio.aspx.vb Partial Class CheckAndRadio Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click results.Text = String.Empty For Each li As ListItem In CheckBoxList1.Items If li.Selected Then results.Text &= li.Text & "<br/>" End If Next results.Text &= "<br/><br/><hr/>" If RadioButtonList1.SelectedItem IsNot Nothing Then results.Text &= RadioButtonList1.SelectedItem.Text End If End Sub End Class