[SOLVED] FirstVisibleDay in Week- or Monthview

    Dim DaysCount As Long
        DaysCount = CalendarControl.ActiveView.DaysCount - 1

    Select Case CalendarControl.ViewType
        Case xtpCalendarDayView
            Debug.Print "First Day: " & CalendarControl.ActiveView.Days(0).Date & ""
        Case xtpCalendarFullWeekView, xtpCalendarMonthView, xtpCalendarWeekView, xtpCalendarWorkWeekView
            Debug.Print "First Day: " & CalendarControl.ActiveView.Days(0).Date & ", Last Day: " & CalendarControl.ActiveView.Days(DaysCount).Date
    End Select