Asp Control ASP.Net

<%@ Page Language=VB Debug=true %>

Sub calSelectChange(ByVal Sender as Object, ByVal E as EventArgs)
    Dim i as Integer
    lblMessage.Text = "You selected:"
    For i = 0 to MyCal.SelectedDates.Count - 1
        lblMessage.Text = lblMessage.Text & "
" _
            & MyCal.SelectedDates(i).ToShortDateString()
    Next    
End Sub



Reading Selected Dates in a Date Range through the Calendar Control



Select a Date



    id="Mycal" 
    runat="server"
    cellpadding="3"
    cellspacing="3"
    selectionmode="DayWeekMonth"
    selectorstyle-font-bold="True"
    selectorStyle-backcolor="#3366ff"
    font-name="Tahoma"
    font-size="12"
    backcolor="ivory"
    selecteddaystyle-backcolor="#ffcc66"
    selecteddaystyle-font-bold="True"
    onselectionchanged="calSelectChange"
/>



    id="lblMessage"
    runat="server"
    Font-Bold="True"
/>