如何专注于Telerik Radcalendar日期

Question

使用键盘，在每个日期之间切换，但我看不到焦点，如何在通过标签的每个日期上设置焦点？我使用了这个“ RadCalendar1.SelectedDate = DateTime.Now”，但它只为我提供了当前日期的焦点。谢谢。

RadCalendar1.SelectedDate = DateTime.Now

Protected Sub PopulateCalendar(ByVal UserID As Integer)

    Dim AppointmentList As New List(Of AppointmentDTO)

    AppointmentList = AppointmentManager.GetList_ByUserIDs(UserID)      


    Me.AppointmentCount = AppointmentList.Count

    For Each appt As AppointmentDTO In AppointmentList
        Dim NewDay As New RadCalendarDay(RadCalendar1)
        'NewDay.Date = New DateTime(2010, 11, 12)
        NewDay.Date = New DateTime(appt.StartTime.Year, appt.StartTime.Month, appt.StartTime.Day)
        NewDay.IsSelected = False
        NewDay.ItemStyle.CssClass = "rcSelected"
        NewDay.ToolTip = "Appointment scheduled today"
        RadCalendar1.SpecialDays.Add(NewDay)

    Next

   RadCalendar1.SelectedDate = DateTime.Now

End Sub

-

   <telerik:RadCalendar ID="RadCalendar1" runat="server" TitleFormat="MMMM yyyy"  Width="100%"
                 ShowRowHeaders="false"    UseRowHeadersAsSelectors="false" UseColumnHeadersAsSelectors="false" EnableViewSelector="false">
    <ClientEvents OnDateClick="Calendar_OnDateClick"></ClientEvents>
                 <WeekendDayStyle CssClass="rcWeekend"></WeekendDayStyle>
                 <CalendarTableStyle CssClass="rcMainTable"></CalendarTableStyle>
                 <OtherMonthDayStyle CssClass="rcOtherMonth"></OtherMonthDayStyle>
                 <OutOfRangeDayStyle CssClass="rcOutOfRange"></OutOfRangeDayStyle>
                 <DisabledDayStyle CssClass="rcDisabled"></DisabledDayStyle>
                 <SelectedDayStyle CssClass="rcSelected"></SelectedDayStyle>
                 <DayOverStyle CssClass="rcHover"></DayOverStyle>
                 <FastNavigationStyle CssClass="RadCalendarMonthView RadCalendarMonthView_Office2007"></FastNavigationStyle>
                 <ViewSelectorStyle CssClass="rcViewSel"></ViewSelectorStyle>
</telerik:RadCalendar>

关注当前日期（今天），但是我需要关注选中的每个日期。