Private Sub Scroll_the_Current_Day_into_View_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.UltraMonthViewSingle1.ScrollDayIntoView(DateTime.Today)
Me.UltraWeekView1.ScrollDayIntoView(DateTime.Today)
End Sub