Private Sub Select_Click(ByVal sender As System.Object, ByVal e As_System.EventArgs) Handles Select.ClickDim newCookie As HttpCookie = New HttpCookie("Books")newCookie.Values.Add("Name", TextBox1.Text)newCookie.Values.Add("FavBook", RadioButtonList1.SelectedItem.Text)newCookie.Expires = #12/31/2008#Response.Cookies.Add(newCookie)Label3.Text = "Cookie Created"Select.Visible = FalseTextBox1.Visible = FalseLabel1.Visible = FalseLabel2.Visible = FalseRadioButtonList1.Visible = FalseEnd Sub