PartialClass _DefaultClass _Default Inherits System.Web.UI.Page ProtectedSub Calendar1_DayRender()Sub Calendar1_DayRender(ByVal sender AsObject, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender Dim oCheckBox AsNew HtmlControls.HtmlInputCheckBox() oCheckBox.Value = e.Day.Date.ToShortDateString oCheckBox.ID ="SelectDate" e.Cell.Controls.Clear() e.Cell.Controls.Add(oCheckBox) e.Cell.Controls.Add(New LiteralControl(e.Day.DayNumberText)) End Sub ProtectedSub Button1_Click()Sub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click Me.Response.Write("SelectDate: "&Me.Request.Form("SelectDate")) End Sub End Class