Asp Control ASP.Net

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

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Not IsPostBack Then
        Dim I as Integer
        For i = 0 to 4
            MyCal.SelectedDates.Add(DateAdd( _
                Microsoft.VisualBasic.DateInterval.Day, _
                i, Today()))
        Next
    End If
End Sub



Displaying a Selected Range of Dates in 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"
/>