no the example that you gave me is good
i know that each calendar could have only one timetable so i did it whit visible true and false for hiding or schowing a calendar
but the problem is that even i put the code visible true / false to it he only want to show te first _calendar
Private Sub _menuMonth_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuMonth.Click
_calendar.Visible = True
_calendar.CurrentView = CalendarView.SingleMonth
Calendar1.Visible = False
Calendar2.Visible = False
End Sub
Private Sub _menuMonthRange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuMonthRange.Click
_calendar.Visible = True
_calendar.CurrentView = CalendarView.MonthRange
Calendar1.Visible = False
Calendar2.Visible = False
End Sub
Private Sub _menuDayRange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuDayRange.Click
_calendar.Visible = True
_calendar.CurrentView = CalendarView.DayRange
Calendar1.Visible = False
Calendar2.Visible = False
End Sub
Private Sub _menuWeekRange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuWeekRange.Click
_calendar.Visible = True
_calendar.CurrentView = CalendarView.WeekRange
Calendar1.Visible = False
Calendar2.Visible = False
End Sub
Private Sub _menuTimetable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuTimetable.Click
_calendar.Visible = True
_calendar.CurrentView = CalendarView.Timetable
Calendar1.Visible = False
Calendar2.Visible = False
End Sub
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuTimetable.Click
Calendar1.Visible = True
Calendar1.CurrentView = CalendarView.Timetable
Calendar2.Visible = False
_calendar.Visible = False
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuTimetable.Click
Calendar2.Visible = True
Calendar2.CurrentView = CalendarView.Timetable
Calendar1.Visible = False
_calendar.Visible = False
End Sub
Private Sub _menuLightBlue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuLightBlue.Click
_calendar.ApplyTheme(Theme.LightBlue)
Calendar1.ApplyTheme(Theme.LightBlue)
Calendar2.ApplyTheme(Theme.LightBlue)
End Sub
Private Sub _menuLightBrown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuLightBrown.Click
_calendar.ApplyTheme(Theme.LightBrown)
Calendar1.ApplyTheme(Theme.LightBrown)
Calendar2.ApplyTheme(Theme.LightBrown)
End Sub
Private Sub _menuStandard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _menuStandard.Click
_calendar.ApplyTheme(Theme.Standard)
Calendar1.ApplyTheme(Theme.Standard)
Calendar2.ApplyTheme(Theme.Standard)
End Sub
Private Sub _menuView_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles _menuView.Popup
_menuMonth.Checked = (_calendar.CurrentView = CalendarView.SingleMonth)
_menuMonthRange.Checked = (_calendar.CurrentView = CalendarView.MonthRange)
_menuWeekRange.Checked = (_calendar.CurrentView = CalendarView.WeekRange)
_menuDayRange.Checked = (_calendar.CurrentView = CalendarView.DayRange)
_menuTimetable.Checked = (_calendar.CurrentView = CalendarView.Timetable)
MenuItem1.Checked = (Calendar1.CurrentView = CalendarView.Timetable)
MenuItem2.Checked = (Calendar2.CurrentView = CalendarView.Timetable)
End Sub