231:
How can I change the background color of the all day header

With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
	.ShowAllDayHeader = True
	With .Calendar
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
		.set_SelectDate(#5/8/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
		.set_SelectDate(#5/15/2012#,False)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayHeaderBackColor,Color.FromArgb(240,240,240))
	.HeaderAllDayEventHeight = -20
	.Events.Add(#5/8/2012#,#5/17/2012#).AllDayEvent = True
	.EndUpdate()
End With
230:
How can I display a single text on a specified date

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/26/2012#
	.Calendar.Selection = "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)"
	.NonworkingPatterns.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty).BackgroundExt = "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]"
	.NonworkingTimes.Add("value = #05/25/2012#","09:00","10:00",1234)
	.EndUpdate()
End With
229:
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)

Dim rs
With Exschedule1
	rs = New ADODB.Recordset()
	With rs
		.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3)
	End With
	.BeginUpdate()
	.Calendar.Selection = #11/11/2013#
	.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventStartDateTime,"Start")
	.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventEndDateTime,"End")
	.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventExtraLabel,"Extra")
	.DataSource = rs
	Debug.Print( .Events.Item(1).get_KnownProperty(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventID) )
	.EndUpdate()
End With
228:
Is it possible to display some text/image on the schedule's view background

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/25/2012#
	.NonworkingPatterns.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternBDiagonal).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
	.NonworkingPatterns.Add(1235,exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty).BackgroundExt = "[text=`<fgcolor 808080>just another caption`,align=0x11]"
	.NonworkingTimes.Add("weekday(value) = 5","08:00","08:59:59",1234)
	.NonworkingTimes.Add("weekday(value) = 5","09:00","09:59:59",1235)
	.NonworkingTimes.Add("weekday(value) = 5","10:00","10:59:59",1234)
	.EndUpdate()
End With
227:
How can I display a text on the schedule's view background

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/25/2012#
	.NonworkingPatterns.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
	.NonworkingTimes.Add("weekday(value) = 5","12:00","13:00",1234)
	.EndUpdate()
End With
226:
Is it possible to change the visual appearance of the edit's context menu

With Exschedule1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exContextMenuAppearance,&H1000000)
End With
225:
How do I customize the edit's context menu

With Exschedule1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.EditContextMenuItems = "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
End With
224:
How can I lock/fix the date header, so it stays on the top while the user scrolls the chart

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( Operation )
		.DayViewHeight = 2016
	End With
End Sub

With Exschedule1
	.BeginUpdate()
	With .Calendar
		.set_SelectDate(#5/20/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exVertical
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRowLockHeader
	.DayViewHeight = 2016
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowExchangePanels = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMoveTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowResizeTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMultiDaysEvent = False
	.TimeScales.Item(0).MinorTimeRuler = "00:10"
	.DayStartTime = "00:00"
	.DayEndTime = "24:00"
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	.EndUpdate()
End With
223:
Is there any way to control the vertical size of each hour other than by the font and/or the minor time scale being changed

With Exschedule1
	.BeginUpdate()
	With .Calendar
		.set_SelectDate(#5/20/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
	.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exVertical
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow
	.DayViewHeight = 2016
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowExchangePanels = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMoveTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowResizeTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMultiDaysEvent = False
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus))
	.TimeScales.Item(0).MinorTimeRuler = "00:10"
	.DayStartTime = "00:00"
	.DayEndTime = "24:00"
	.EndUpdate()
End With
222:
How can I show a single week, no calendar

With Exschedule1
	.BeginUpdate()
	With .Calendar
		.set_SelectDate(#5/20/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
	.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowExchangePanels = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMoveTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowResizeTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMultiDaysEvent = False
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus))
	.EndUpdate()
End With
221:
How do I select the dates within a giving interval only

With Exschedule1
	.BeginUpdate()
	With .Calendar
		.Selection = #5/1/2012#
		.Selection = "(value >= #5/13/2012#) and (value <= #5/26/2012#)"
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
220:
How do I display the dates within a giving interval only

With Exschedule1
	.BeginUpdate()
	With .Calendar
		.Selection = #5/24/2012#
		.MinDate = #5/13/2012#
		.MaxDate = #5/26/2012#
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
219:
Is it possible that the time is displayed starting from 00:00 to 24:00 00 instead of 08:00 AM to 04:00 PM

With Exschedule1
	.DayStartTime = "00:00"
	.DayEndTime = "24:00"
	With .TimeScales.Item(0)
		.MajorTimeLabel = "<%hh%>:<%nn%>"
		.Width = 32
	End With
End With
218:
How do I show a double frame

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.Calendar.Selection = #1/10/2001#
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = ""
	With .Events
		With .Add(#1/10/2001 8:00:00 AM#,#1/10/2001 10:00:00 AM#)
			.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x21,pattern=0x000,frame=RGB(0,0,0)],client[back=RGB(255,255,0),align=0x21,pattern=0x000,frame=" & _
"RGB(0,0,0)]"
			.set_BodyBackgroundExtValue(exontrol.EXSCHEDULELib.IndexExtEnum.exIndexExt1,exontrol.EXSCHEDULELib.BackgroundExtPropertyEnum.exBackColorExt,255)
			.set_BodyBackgroundExtValue(exontrol.EXSCHEDULELib.IndexExtEnum.exIndexExt1,exontrol.EXSCHEDULELib.BackgroundExtPropertyEnum.exClientExt,"35%")
		End With
		With .Add(#1/10/2001 10:00:00 AM#,#1/10/2001 0:00:00 PM#)
			.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]"
			.set_BodyBackgroundExtValue(exontrol.EXSCHEDULELib.IndexExtEnum.exIndexExt1,exontrol.EXSCHEDULELib.BackgroundExtPropertyEnum.exClientExt,"35%")
			.set_BodyBackgroundExtValue(exontrol.EXSCHEDULELib.IndexExtEnum.exIndexExt2,exontrol.EXSCHEDULELib.BackgroundExtPropertyEnum.exBackColorExt,65535)
		End With
		With .Add(#1/10/2001 0:00:00 PM#,#1/10/2001 2:00:00 PM#)
			.ShowStatus = False
			.BodyBackgroundExt = "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(0%,0%,100%,100%),pattern=0x000,frame" & _
"=RGB(0,0,0)]"
		End With
		With .Add(#1/10/2001 2:00:00 PM#,#1/10/2001 4:00:00 PM#)
			.ShowStatus = False
			.BodyBackgroundExt = "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(4,0%,100%-4,100%),pattern=0x000,fram" & _
"e=RGB(0,0,0)]"
		End With
	End With
End With
217:
How can I add more colors on the event

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.Calendar.Selection = #1/10/2001#
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).BodyBackgroundExt = "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).BodyBackgroundExt = "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
		.Add(#1/10/2001 11:00:00 AM#,#1/10/2001 2:00:00 PM#).BodyBackgroundExt = "left[33%,back=RGB(0,128,0)](top[50%,back=RGB(0,255,0)]),left[33%](top[33%,back=RGB(0,255,255)],top[33%,back=RGB(0,0,128)],clien" & _
"t[back=RGB(0,0,255)]),client(top[25%,back=RGB(240,240,240)],top[25%,back=RGB(192,192,192)],top[25%,back=RGB(128,128,128)],client" & _
"[back=RGB(0,0,0)])"
	End With
End With
216:
When I have 3 month visible in the calendar section, it seems I can only move back and forth through the months 3 months at a time. Is it possible to move back and forth through the months 1 month at a time
With Exschedule1
	With .Calendar
		.AlignDate = False
		.MinMonthY = 2
		.MaxMonthY = 2
	End With
End With
215:
How can I bound the control to a data source

' Error event - Fired when an internal error occurs.
Private Sub Exschedule1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Exschedule1.Error
	With Exschedule1
		Debug.Print( Description )
	End With
End Sub

Dim rs
With Exschedule1
	rs = New ADODB.Recordset()
	With rs
		.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3)
	End With
	.BeginUpdate()
	.Calendar.Selection = #11/11/2013#
	.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventStartDateTime,"Start")
	.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventEndDateTime,"End")
	.set_DataField(exontrol.EXSCHEDULELib.EventKnownPropertyEnum.exEventExtraLabel,"Extra")
	.DataSource = rs
	.EndUpdate()
End With
214:
How can I start drag and drop an event

// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
With Exschedule1
	.BeginUpdate()
	.OLEDropMode = exontrol.EXSCHEDULELib.exOLEDropModeEnum.exOLEDropManual
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	.Events.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).ExtraLabel = "Click the event and wait to start dragging."
	.EndUpdate()
End With
213:
I use the HighlightDate property to mark a date, instead the selection is not visible if I select the same date. What can be done

With Exschedule1
	.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateCalendarEllipticClip Or exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateCalendarGradient Or exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar
	.Calendar.Selection = #1/1/2001#
	.set_HighlightDate(#1/9/2001#,65280)
	.set_HighlightDate(#1/17/2001#,"65280,255")
	.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
212:
How can I arrange the colors to highlight the date vertically

With Exschedule1
	.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateVertical Or exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar
	.Calendar.Selection = #1/1/2001#
	.set_HighlightDate(#1/9/2001#,65280)
	.set_HighlightDate(#1/17/2001#,"65280,255")
	.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
211:
Is it possible to highlight a date in gradient

With Exschedule1
	.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateCalendarGradient Or exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar
	.Calendar.Selection = #1/1/2001#
	.set_HighlightDate(#1/9/2001#,65280)
	.set_HighlightDate(#1/17/2001#,"65280,255")
	.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
210:
Is it possible to highlight a date in the calendar panel only

With Exschedule1
	.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar
	.Calendar.Selection = #1/1/2001#
	.set_HighlightDate(#1/9/2001#,65280)
	.set_HighlightDate(#1/17/2001#,"65280,255")
	.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
209:
Is it possible to highlight a date in the control

With Exschedule1
	.ShowHighlightDate = exontrol.EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDate
	.Calendar.Selection = #1/25/2001#
	.set_HighlightDate(#1/9/2001#,65280)
	.set_HighlightDate(#1/17/2001#,"65280,255")
	.set_HighlightDate(#1/25/2001#,"255,65280,16711680")
End With
208:
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible

With Exschedule1
	.BeginUpdate()
	.BodyEventBackColor = Color.FromArgb(240,240,240)
	.ShowGroupingEvents = True
	.DisplayGroupingButton = True
	.Groups.Add(1,"Group 1").Visible = True
	.Groups.Add(2,"Group 2").Visible = True
	.Calendar.Selection = #5/25/2012#
	.NonworkingPatterns.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternBrick)
	With .NonworkingTimes
		.Add("1","00:00","08:45",1234)
		.Add("weekday(value) = 5","10:00","11:45",1).GroupID = 1
		.Add("weekday(value) = 5","12:00","13:00",1234).GroupID = 2
	End With
	.Events.Add(#5/25/2012 9:30:00 AM#,#5/25/2012 1:00:00 PM#).GroupID = 1
	.EndUpdate()
End With
207:
I have a double click event set to launch a window so the user can supply input. The problem is that double click changes the view. How do I change this behavior
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exschedule1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exschedule1.DblClick
	With Exschedule1
		Debug.Print( "DblClick " )
		Debug.Print( X )
		Debug.Print( Y )
	End With
End Sub

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).StatusColor = Color.FromArgb(255,0,0)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.AllowEditEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.EndUpdate()
End With
206:
I have two-time scales. How do I change the label while updating the events to show the date-time on the second time-scale

With Exschedule1
	.DayEndTime = "13:00"
	With .TimeScales.Add("+3:00")
		.AlignLeft = True
		.Caption = "EST <b>+03"
	End With
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.UpdateEventsLabel = "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>"
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
205:
Is there a way to add a hyperlink to the event that would run a report with parameters

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exschedule1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exschedule1.AnchorClick
	With Exschedule1
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With Exschedule1
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).LongLabel = "<%=%256%><br><a 1234;option 1>more ...</a>"
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).LongLabel = "<%=%256%><br><a 1235;option 2>more ...</a>"
	End With
End With
204:
Can I have multiple months in the calendar section

With Exschedule1
	With .Calendar
		.MinMonthY = 2
		.MaxMonthY = 2
	End With
End With
203:
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location

With Exschedule1
	.Calendar.Selection = #6/20/2012#
	With .Events
		With .Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
			.UserData = 1234
			.ShortLabel = "<%=%256%><br>Order: <%=%6%>"
			.LongLabel = .ShortLabel
		End With
		With .Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
			.UserData = 1235
			.ShortLabel = "<%=%256%>, Order: <%=%6%>"
			.LongLabel = .ShortLabel
		End With
	End With
End With
202:
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location

With Exschedule1
	.Calendar.Selection = #6/20/2012#
	.DefaultEventShortLabel = "<%=%256%><br>Order: <b><%=%6%>"
	.DefaultEventLongLabel = .DefaultEventShortLabel
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).UserData = 1234
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).UserData = 1235
	End With
End With
201:
Can you add text with links in the event

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exschedule1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exschedule1.AnchorClick
	With Exschedule1
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With Exschedule1
	.Calendar.Selection = #6/20/2012#
	With .Events
		With .Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
			.ShortLabel = "<a 1><%=%256%></a>"
			.LongLabel = .ShortLabel
		End With
		With .Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
			.ShortLabel = "<a 2><%=%256%></a>"
			.LongLabel = .ShortLabel
		End With
	End With
End With
200:
Can you add text with links in the event

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exschedule1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exschedule1.AnchorClick
	With Exschedule1
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With Exschedule1
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).ExtraLabel = "<aID1234;OPTIONS-1234>click me</a>"
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).ExtraLabel = "<a1235;OPTIONS-1235>click me</a>"
	End With
End With
199:
How do you adjust the font type and size of the event (method 2)

With Exschedule1
	.Calendar.Selection = #6/20/2012#
	.DefaultEventShortLabel = "<font mistral;12><%=%256%>"
	.DefaultEventLongLabel = .DefaultEventShortLabel
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
	End With
End With
198:
How do you adjust the font type and size of the event (method 1)

With Exschedule1
	.Calendar.Selection = #6/20/2012#
	With .Events
		With .Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
			.ShortLabel = "<font tahoma;12><%=%256%>"
			.LongLabel = .ShortLabel
		End With
		With .Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
			.ShortLabel = "<fgcolor FF><i><font Mistral;16>your caption</i></font> goes here"
			.LongLabel = .ShortLabel
		End With
	End With
End With
197:
How can I change the shape of the line to be shown when user drag and drop data over the control

With Exschedule1
	.OLEDropMode = exontrol.EXSCHEDULELib.exOLEDropModeEnum.exOLEDropManual
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExSchedule\Sample\EBN\dash1.ebn")
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleOLEDropPosition,&H1000000)
End With
196:
How can I highlight the date-time from cursor when the user drag and drop data over the control
With Exschedule1
	.OLEDropMode = exontrol.EXSCHEDULELib.exOLEDropModeEnum.exOLEDropManual
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleOLEDropPosition,Color.FromArgb(1,0,0))
End With
195:
How can I start drag and drop events

// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
With Exschedule1
	.BeginUpdate()
	.AllowMoveEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowCreateEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.OLEDropMode = exontrol.EXSCHEDULELib.exOLEDropModeEnum.exOLEDropManual
	.Calendar.Selection = #6/27/2012#
	With .Events
		.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#).BodyBackColor = Color.FromArgb(255,0,0)
		.Add(#6/27/2012 11:30:00 AM#,#6/27/2012 1:30:00 PM#)
		.Add(#6/27/2012 8:30:00 AM#,#6/27/2012 11:45:00 AM#)
	End With
	.EndUpdate()
End With
194:
Is it possible to show the today date with a different foreground color

With Exschedule1
	.Calendar.Selection = "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday" & _
"(date(``))-1)/7))"
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarMarkToday,.BackColor)
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarMarkTodayForeColor,Color.FromArgb(255,0,0))
End With
193:
How can I hide the rectangle around the today date

With Exschedule1
	.Calendar.Selection = "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday" & _
"(date(``))-1)/7))"
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarMarkToday,.BackColor)
End With
192:
Is it possible to change the appearance of event with no status using the EBN (office theme)

With Exschedule1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BeoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDGEwCQiNQyRDCYYw+GYCJBmKKYcgONYgQLHcgxD" & _
"IsJw/FyERjjeB4egkaZHRZOUZTZQsBxRAZ2Q4EQAKRpOFY9DTPcr0HR8ZQ+BKNAYkSjQAp2VZUVJFUqDKItVzbBIaRgteA7RrOXpjRjYEBxDKcZyxLqVLToiqcRz7Pqb" & _
"ZrjeioZoyBI+QjgYAUFDeGSTDQ3bwAA4rEqaaZnVbkOQQJTcNy7EKvYRzGA7CgPHI5QjnVR6BjUJztWyIbp3G4rchqH4RaqAF5ZXg9ez/FIaJbnUaMWhXFqOABwPC0Xo" & _
"IGuAJklAeR6H2dAngcEZWnQehzCsd4SmGPJzF2Io1l2fhrgeUpxHOLIAggSRAlIYw6B0ThGFyEJ4CEAwQgSV51BkDYQhCIQJHgGp0gAGBFgCB55nAAC3HCbYEGEOBIHO" & _
"BZhggZgagYIRIHYEoFCGMoSCKCJiEiFgjgaYZjjYGIJiKSI2CeBZiAgXgugyYxIgYNINmIaJaDiDpKEiag8g2Y5on4M4GkqGQWEaEZkgkJhKhEZBJC4ToTmSSBqFCFJk" & _
"ikNhUhXQpaFiFJlikbhPhcZZpC4GwqmYSYWGaGZmgmJhkhiZopjYboamGKY+HKGhmkmTh2CqZxZl4coeGeKY6HyHxmigbIuiCaBKBaBohmiCgOgKIhokoNoKgaKJqEaC" & _
"IimkwwuiUKVyBiJk7m6HIiGGMqbCiSwqhaI4pmqComiOKBqiqNouioKpKj6JQsiqapOiuBoqnqZouiwaxahqOooiuSp+j+BpLEsFpGjGbILCaSoxGwSwuk6M5skgapQj" & _
"SbIrDaVI15AWpYjSbYrG6T43G2a1Ui2bhLhaZo5m6C4mmSOJuiuNpujqYYrj6co6G6S5OnYLZvFuXpyj4b4rjqfI/G7aA7kCcBMBcBpBnCDAPAKQhwkwN1wjCbBHAiQp" & _
"xCwVI7kVlJHBiRhwlwbzrHGbB/AeBpLlyFI/kmcoMiMJQvHKLIbCeSpyjyEwwkycxMk8LZMDMLIzC+S4LnyVw+kwYYsn8P5KHOPJoj+TnQl8NJSjMPJnEzmR9CMQpUnO" & _
"SBvESVZ1g0ZwplWNYtHcXZXDWbYHESWA2C2Fxklkdgdh8aJXmGLYvGaBoME2RxylydxNlcdpcGGPZfHqXp3C2M4fIv3sD3ACMETAnALgJF+PAbgPh7jEHiFsXgNgxjyA" & _
"4I8EoyR5CcFeCEY48huDPBqMsYYXBvg9GUPMDg/wiBjHoD0D4PRpD0G4NdcY8hoDZEqNcewHRHhlGyPYTofwujaHuB0Z4bQGh3C6O9ng9xvAJEqA0TIfgXiNHGPkDznx" & _
"xD4E8F8To5x8iQGuKEdI+QvBvFSOuKotxYjpGGGYN4vR3j8A+A8Yo8R9jeHeMkeY/QPgsBoGcPonw3jdHuP4D4jxsgNH8F8V47R7D+E+L8eo+A/g/G+PwGYnx1j/D+FA" & _
"AwAQfhoASAEL4lADiBAePEeowBcANAGGAOgCQhhDCMAoIIWAWgFHAMQDIghEBuAaEEbAPQChgHIB8QgUAxAQGEDgJgNAwgsBOIQJAbUpCoBoIoCAtAJiFGgMEBQwwqBj" & _
"AWCEYAcwigoCgIAQBAQ==")
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
	.Calendar.Selection = #6/27/2012#
	.BodyEventBackColor32 = &H1000000
	.ShowStatusEvent = False
	.set_DefaultEventPadding(exontrol.EXSCHEDULELib.PaddingEdgeEnum.exPaddingAll,3)
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleCreateEventBackColor,&H1000000)
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleUpdateEventsBackColor,&H1000000)
	With .Events
		.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#).BodyBackColor = Color.FromArgb(255,0,0)
		.Add(#6/27/2012 11:30:00 AM#,#6/27/2012 1:30:00 PM#).BodyBackColor = Color.FromArgb(0,255,0)
	End With
	.EndUpdate()
End With
191:
Is it possible to change the appearance of event's status using the EBN (office theme)

With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BKYCg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDEMQ0AJCIzDJCIZBkHCPRjASQZUhmHIDTbIEBxf" & _
"IMIxLE9IMwxfA8ax1GifI6hGSYDa0HAkABTVQRLL4aSDK6NaYmSL5DhkBokUpGKTpOhgATHMqqIzGURZNquEQ1DBbEI3BaUaw/CKRLAoahqVpqK4tS7MNa3XKkcxzD6e" & _
"IypGBKAgmQoJDLRGIxTiYACxPQACzsEAKapKUZPRZVNYQJQlNRDLiEcrgOr4DxqO4aWbZViaDZVawlNy5bhtfaqGrfKYJYLrWCTbh0Tz9KzIJJwHbcKxjKrDczjEoSVw" & _
"iAmSgcGmIxaggHBHFmFpoHEJwbg8FpammO5bEUaxbm6ZwDH+YI7EIQQQhKAYkkYdA6hyDI4ngGRIA8AwQgSV51BkDYQhCIQJHeHAkCAGBFgGR55m8CQBkONkYCEEgxGe" & _
"BZJHQDgTgWFhFgyf4HmICByBqBRhmiAgmD+YggAIHIJmKSIhGMQJijiNgmgoYwYkoH4NCIWJaC6BhiiiZg2g4CR4moN4LmOWQGEKEAkCibgwg+vwiEeEQjFifhQhMIpZ" & _
"DoOoViUKJyFGExlDkGhXhcZIZGIXIWiUSIyGKFRmAkPhkheJYZC4bIYmaaYGGmF5mjmSh1hqJwZmIRYdieGZSH2GxnjmahbhoJx5nqAYhigOYaHOIAohiHhniKKBaDIZ" & _
"YjiiOZCgeJImnoEh/iWKJYk6FYmikehyhOJ4pBqCoZiQKY6gKHYIGmeoiiGKoqDqMoliwKh6FKM4riqOQOjeLYqhqYoxi6K5anKL4visWoSkGMYsDsCo5hKLIbCKS4jm" & _
"yKp+kyM5qlsRpFiyLB7GKTY2i0Spuk6NItAsfpXjALY7hKXYIk6Wh2CmBphgqOgTjuYhIHachAlAECAg=")
		.Add(2,"CP:1 0 0 1 0")
		.Add(4,"gBFLBCJwBAEHhEJAEGg4BGoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpASLoJDCH4mSTHYxyHIMWwtDiBZgkCA4fiGEYnThKM5Sd" & _
"KsXABG6NErSdDAAoKRIVTjAcsVTicAo+R7TcYgLBNAQHKQAHZDQRKZpuFoRRKJNgDLYUEhqGCyYDseyZNj2GZYRDPVqzWAFFzrFSqLilaYpSh+bpfSRSVI3PakQz+LCN" & _
"CzwEAKYoaRZDRZgdzUbItMYNBKsMQgO6QAwqNKYQjWVaaFgEYzJMa2LTiHSqQhrGqMQjnV5ZPgVzZKZZGVQ1LBOOZfEJ2XacSqeCyWEqnRryFpWRpfGXiX7EOY7HaePw" & _
"DAQQhKAaEwZlCahyDKDBjm4a5JAiG5jgyDYhCKDZukYSAYgsLAzh0RBlBqBAkA4Ox+n+H5AAGDJWDWH5jFmdBQl8Z5yAGAZfngDZ6H9HIiACAhUCgMgPgSYAYA4EoDiE" & _
"WBGBiAxhAIXAADITRzGIIA2AyAxYleCJhGiFgnggYg4iIEYImKKIqC6B4iliMg2DYIRolYIoLA2ExmDmDwNhiNg9g+Y44goPYMmGeJeEKD4hBMMJbDaTIYnYTg2mUOBa" & _
"FOFZknkVhNhYZZJFIT4ViWWRElmFohmkYhehQJA4ESTg3A2WYuG2GwmmgWhuhyZwJjIcodGaeZmGANpnEMdhkAAJ5ZE4cYaieCZ2HeHhoGoEoIh4IRjESXg3iialFiQa" & _
"JaE6Fokg2ahWhiJBpEgRociWaZYHqH4mmiehqiOKBAAqDJUDgTgaiyYYFiqapGiyK4rAqTosiQa14jKKxrGqPo6i8a46laPIwmuGB6juMBrnsEo9jCLB6jKTIwCyawmk" & _
"2L4sGsQpDjObIrFAAA2E4U4WlyN4tlsfgWjebhLgaXY4waApqjoLorhSZY7C6a4KBGPBuhuQppjyIZrlKa48m8e5WBENwOHOIyNDAHAOBaQJwgwFwBgWDZziSaZCHAQ4" & _
"jAeQoxBwGp/kUMQME8FZFDGLBDBaB4xmwcwXkacQcDMDpDE6HIjCiSYyhyHwuDocpMisL5MHKfIuBGTIylyZgWDgToziyYg7A6TJ8myTwO7KPZRDQLQTEYOp0g0AxKgQ" & _
"dBNDcQ5PHSPRHEeVQ1A0XxMlaNRdGsT4Hg4Q44m2WB2D2CxkgWNhNicZpYjaDYvGWW52l2PxqDsdz+meBBOGOIEcAdAPAnEcPIPAbx4C2H+MEd4XAHDxGEPEDgBh6jBD" & _
"iDwEI4QFhvEOI8EYyR3i8EMPsZQcguCsBGMwOQMApj5GYEAPg8RtAADoDAFY9xpiAAQAggIA=")
	End With
	.Calendar.Selection = #6/27/2012#
	.StatusEventColor32 = &H2000000
	.BodyEventBackColor32 = &H4000000
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleCreateEventBackColor,&H1000000)
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleUpdateEventsBackColor,&H1000000)
	.StatusEventSize = 6
	.set_DefaultEventPadding(exontrol.EXSCHEDULELib.PaddingEdgeEnum.exPaddingAll,2)
	With .Events
		.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#).BodyBackColor = Color.FromArgb(255,0,0)
		With .Add(#6/27/2012 11:30:00 AM#,#6/27/2012 1:30:00 PM#)
			.BodyBackColor = Color.FromArgb(0,255,0)
			.StatusColor = Color.FromArgb(0,0,128)
			.ExtraLabel = "Point"
		End With
		With .Add(#6/27/2012 8:30:00 AM#,#6/27/2012 11:45:00 AM#)
			.StatusColor = Color.FromArgb(255,0,255)
		End With
	End With
	.EndUpdate()
End With
190:
Does your control support subscript or superscript, in HTML captions

With Exschedule1
	.BodyEventBackColor = Color.FromArgb(240,240,240)
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).ExtraLabel = "<sha ;;0>Event <b><font ;6><off 4>1"
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).ExtraLabel = "<sha ;;0>Event <b><font ;6><off 4>2"
		.Add(#6/20/2012 1:00:00 PM#,#6/20/2012 3:00:00 PM#).ExtraLabel = "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
	End With
End With
189:
How can I hide the scheduler part of the control, so I can use the calendar panel only

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
End With
188:
I see how I can specify a non-working day pattern for weekends, but how can I specify non-working days for holidays

With Exschedule1
	With .Calendar
		.set_SelectDate(#5/28/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
		.set_SelectDate(#6/5/2012#,False)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
		.set_SelectDate(#6/12/2012#,False)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	With .NonworkingTimes
		.Add("month(value) = 5","00:00","24:00",-1)
		.Add("value in (#6/5/2012#,#6/7/2012#)","00:00","24:00",-1)
	End With
End With
187:
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

With Exschedule1
	.BeginUpdate()
	.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exDisableBoth
	.set_ScrollPartVisible(exontrol.EXSCHEDULELib.ScrollBarEnum.exVScroll,exontrol.EXSCHEDULELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(exontrol.EXSCHEDULELib.ScrollBarEnum.exHScroll,exontrol.EXSCHEDULELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(&H2,exontrol.EXSCHEDULELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
	.ScrollHeight = 4
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exVSBack))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exVSThumb))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exVSBack))
	.EndUpdate()
End With
186:
How can I show contiguously the days, in a single row

With Exschedule1
	With .Calendar
		.set_SelectDate(#5/20/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
		.set_SelectDate(#5/27/2012#,False)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow
End With
185:
How can I show contiguously the days

With Exschedule1
	With .Calendar
		.set_SelectDate(#5/20/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
		.set_SelectDate(#5/27/2012#,False)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
End With
184:
How can I display the time in european format with no usage of AM/PM

With Exschedule1
	With .TimeScales.Item(0)
		.MajorTimeLabel = "<%hh%>:<%nn%>"
		.Width = 32
	End With
	With .Calendar
		.Selection = #6/11/2001#
		.ShortTimeFormat = "<%h%>:<%nn%>"
	End With
	With .Events
		.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:15:00 PM#)
		.Add(#6/11/2001 10:30:00 AM#,#6/11/2001 2:30:00 PM#)
	End With
End With
183:
Is it possible to zoom the schedule component using a key and scrolling the wheel (not pressing it and moving the mouse)
With Exschedule1
	.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exCTRLKey Or exontrol.EXSCHEDULELib.AllowKeysEnum.exMiddleClick
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exMiddleClick
End With
182:
How can I change the format of the date being displayed in the calendar panel

With Exschedule1
	.Calendar.HeaderDayLabel = "<sha><%mmmm%></sha> <sha><fgcolor=FF0000><%yyyy%></fgcolor></sha>"
End With
181:
How can I display the Year in Thai, Buddhist, Korean format

With Exschedule1
	With .Calendar
		.FirstWeekDay = .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
		.HeaderDayLabel = "<%mmmm%> <fgcolor=FF0000><%loc_yyyy%>"
	End With
	.HeaderDayLongLabel = "<|><%dddd%>, <%mmmm%> <%d%>, <fgcolor=FF0000><%loc_yyyy%><|><%dddd%>,<%mmmm%> <%d%>,<fgcolor=FF0000><%loc_yyyy%><|><%dddd%>, <%" & _
"mmmm%> <%d%>,`<fgcolor=FF0000><%loc_yy%><|><%dddd%>, <%mmmm%> <%d%><|><%dddd%>, <%m3%> <%d%><|><%dddd%>, <%d%><|><%dddd%><|><%d3" & _
"%><|><%d2%><|><%d1%>"
End With
180:
May I specify a fixed width for my dates, so user can not resize it
With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exMiddleClick
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
	.DayViewWidth = 96
	.DayViewHeight = 256
	.EndUpdate()
End With
179:
How can I change the format of date being displayed on the header
With Exschedule1
	.HeaderDayLongLabel = "<|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>,`<%yy%><|><%dddd%>, <%d%>" & _
" <%mmmm%><|><%dddd%>, <%d%> <%m3%><|><%dddd%>, <%d%><|><%dddd%><|><%d3%><|><%d2%><|><%d1%>"
End With
178:
Is there any notifications for exchanging the panels at runtime
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( "End exLayoutExchangePanels(16)" )
		Debug.Print( Operation )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Exschedule1_LayoutStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutStartChanging
	With Exschedule1
		Debug.Print( "Start exLayoutExchangePanels(16)" )
		Debug.Print( Operation )
	End With
End Sub

With Exschedule1
	.AllowExchangePanels = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowCreateEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
End With
177:
How can I handle the All-Day events only

With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit
	.ShowAllDayHeader = True
	With .Calendar
		.set_SelectDate(#5/8/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
		.set_SelectDate(#5/15/2012#,False)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	.TimeScales.Item(0).Visible = False
	.Events.Add(#5/8/2012#,#5/17/2012#).AllDayEvent = True
	.EndUpdate()
End With
176:
Is it possible to show the All-Day events with EBN including the next/prev signs (2)

With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit
	.ShowAllDayHeader = True
	With .Calendar
		.set_SelectDate(#5/8/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
		.set_SelectDate(#5/15/2012#,False)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJE" & _
"iSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhI" & _
"E64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHx" & _
"HjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgU" & _
"YYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4" & _
"jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIH" & _
"YkmQFAEIC")
	.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAEGg4BVMIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" & _
"hyKo+CTIAySXJsdw3IyNAIhEB4fgmM4DP7UIAVC78aRABCESgNEwzULUchlDDICJQSQRGzHDSKYDFCCaKgOTI6kgicpJUt6PBtaovKoWOZBcJ3Xjed6vBgeASpQbEL6w" & _
"DCbfrjB6KY5eeDXXSkAkB")
	.VisualAppearance.Add(3,"gBFLBCJwBAEHhEJAEGg4BVUIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" & _
"hyKo+CTIAySXJsZxpHKaAIhEB4fgmRgAP7UNQVFLkEgRBIoDRMM5DVLIZQxSAiUIkERtRQ1CqBRQhGioDoyOgABhFZSUPKlIztO45DwbO56RrlWzONA8FzXdgDYYLQjA" & _
"cJwXA7awrAZ8P7iGBZBbtdQCgIA==")
	.BodyEventBackColor32 = &H1000000
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleEventContinueNextWeek,&H2000000)
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleEventContinuePrevWeek,&H3000000)
	.HeaderAllDayEventHeight = -14
	.Events.Add(#5/8/2012#,#5/17/2012#).AllDayEvent = True
	.EndUpdate()
End With
175:
How can I select programatically two weeks

With Exschedule1
	With .Calendar
		.set_SelectDate(#5/8/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
		.set_SelectDate(#5/15/2012#,False)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
End With
174:
Is it possible to show the All-Day events with EBN including the next/prev signs (1)

With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
	.ShowAllDayHeader = True
	With .Calendar
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
		.set_SelectDate(#5/8/2012#,True)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
		.set_SelectDate(#5/15/2012#,False)
		.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle Or exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
	End With
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJE" & _
"iSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhI" & _
"E64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHx" & _
"HjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgU" & _
"YYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4" & _
"jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIH" & _
"YkmQFAEIC")
	.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" & _
"hyKo+CTIA4SXJsdxpI4EIRCSL6MgNf5PABTb7zTSgYANF6WRZgWgpTjcMJHTpYFIwHRdQwHLqoagqKZJAqMABQGiYZyHKcwMYgBZXJBEbbMNBtBIUIRtaxZBBiFzgUZY" & _
"EBnEbDN4YbapMhyLI2OZBcCOJQ4SCoW4GJ49J7KXgYZiHOLcfjcLovLq5fiOQ5CV5ZXROM6sQyzIKWaCzLL5PjKHInWrPNa3DJtDyXJzUNY9GScG6HBLhWB0czzXIuO4" & _
"djqXg4jUOo9j8N4Zk6YoeA+bZKhcV49kyaAllODhPC8d5bi+WJ6H0fhvHcExIHgQB4nuHpOj4Y4zioeQfDePZRGcHI3lGIh9h4JwhkodQckecY9G+WpHDmUAdAeNwCBE" & _
"fRcGaIZ/G2D52gWfR0iGRhFg8Y5iBYTQBICA=")
	.VisualAppearance.Add(3,"gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" & _
"hyKo+CTIA4SXJsZxpI6EQQhEJIfo2Az/VAAFQPfLNKhgAyXZZFWBaCoaEgwUhVMhUVAdGR1BKvKjqKoZcomCRQGiYZyHKcwMYgBZRRBEbbMNBtBIULasWjQYhdYI7WDT" & _
"dR4XhmGDkPBtcbbPDcUpBBSLOAjSSOExzILhSrFVyXVzTXL5XDGMg7Wa5foFIDmPRtVbWNydLyvICOJK2eZOExrHrhWrPMZaRpnUyXJ6pcBvfA4Zi7QZlWjPOR2aoNCZ" & _
"bjuXpyjsPIahmYJ/keVR0HwPYsnIXQ4mSZ50jwXIfC+HxnmmcZ2HuCAOn+P43lSUZ1neXxeF4L4bmgeoeCcCZEHcXxIAGLBlBuBpphsdgfGaNB0B6WwXjoARrE+dxVkY" & _
"ageAgHgUD+XJWm2U4GliNhJhIQBAICA==")
	.BodyEventBackColor32 = &H1000000
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleEventContinueNextWeek,&H2000000)
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleEventContinuePrevWeek,&H3000000)
	.HeaderAllDayEventHeight = -20
	.Events.Add(#5/8/2012#,#5/17/2012#).AllDayEvent = True
	.EndUpdate()
End With
173:
Can I make it zoom in using CTRL-MouseWheel instead of using the middle button
With Exschedule1
	.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exCTRLKey Or exontrol.EXSCHEDULELib.AllowKeysEnum.exMiddleClick
End With
172:
It is by default not possible, to simply scroll the component with the mouse wheel. How do I make it so
With Exschedule1
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exMiddleClick
End With
171:
Can I get and set the width of the time bar
With Exschedule1
	.TimeScales.Item(0).Width = 48
End With
170:
How do I select the current year

With Exschedule1
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
	.Calendar.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectYear)
End With
169:
How do I select the current week day

With Exschedule1
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
	.Calendar.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeekDay)
End With
168:
How do I select the current week

With Exschedule1
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
	.Calendar.Select(exontrol.EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek)
End With
167:
How can I restore the layout of the panels, when user changes the width and the alignment of the panels
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( "End Operation " )
		Debug.Print( Operation )
		Debug.Print( "Layout " )
		Debug.Print( .OnResizeControl )
		Debug.Print( "PaneWidth(False)" )
		Debug.Print( .get_PaneWidth(False) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Exschedule1_LayoutStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutStartChanging
	With Exschedule1
		Debug.Print( "Start Operation " )
		Debug.Print( Operation )
		Debug.Print( "Layout " )
		Debug.Print( .OnResizeControl )
		Debug.Print( "PaneWidth(False)" )
		Debug.Print( .get_PaneWidth(False) )
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exschedule1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exschedule1.MouseMoveEvent
	With Exschedule1
		Debug.Print( "Layout " )
		Debug.Print( .OnResizeControl )
		Debug.Print( "PaneWidth(False)" )
		Debug.Print( .get_PaneWidth(False) )
	End With
End Sub


166:
Is it possibly to set the column width of the group/person using the api

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #1/10/2001#
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Groups
		With .Add(1,"Group 1")
			.Title = "First"
			.Visible = True
		End With
		With .Add(2,"Group 2")
			.Title = "Second"
			.Visible = True
		End With
	End With
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).GroupID = 1
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).GroupID = 2
	End With
	.Groups.Item(1).Width = 24
	.EndUpdate()
End With
165:
When viewing the schedule by week or month and the month ends during the week (July 31, Tuesday -> August 1, Wednesday), the days continue down as a new week 'row'. When there is a change in month, is it possible to still show the full week without that break (compact)

With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
	With .Calendar
		.Selection = #5/23/2012#
		.Selection = "month(value) in (5,6)"
	End With
	.ShowViewCompact = exontrol.EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact
	.EndUpdate()
End With
164:
I want to change the default event tooltip. How can I do that

With Exschedule1
	.DefaultEventTooltip = "<b>BEGIN:</b> <%=%1%><br><b>END:</b>: <%=%2%><br><b>LENGTH:</b> <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') " & _
": '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + (" & _
"(1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')%>"
End With
163:
How can I select the entire week for a specified date

With Exschedule1
	.BeginUpdate()
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = #3/5/2012#
		.Selection = "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#3/5/2012#)-1)/7))"
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
	.EndUpdate()
End With
162:
I have noticed that I can drag bars from All-Day header to time-zone and reverse. Is it possible to prevent that

With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
	.ShowAllDayHeader = True
	.AllowUpdateAllDayFlag = False
	.Calendar.Selection = #5/23/2012#
	.Calendar.Selection = "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).ExtraLabel = "<sha>dentist"
		.Add(#5/24/2012#,#5/25/2012#).AllDayEvent = True
		.Add(#5/23/2012#,#5/24/2012#).AllDayEvent = True
	End With
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.ShowSelectEvent = False
	.EndUpdate()
End With
161:
When an all-day event stretches over multiple days (ex. Monday thru Friday), is it possible to have that display as a continuous bar across those days instead of separate bars on each day

With Exschedule1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
	.ShowAllDayHeader = True
	.Calendar.Selection = #5/23/2012#
	.Calendar.Selection = "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).ExtraLabel = "<sha>dentist"
		.Add(#5/24/2012#,#5/25/2012#).AllDayEvent = True
		.Add(#5/23/2012#,#5/24/2012#).AllDayEvent = True
	End With
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.ShowSelectEvent = False
	.EndUpdate()
End With
160:
If I double click to a scheduled event and enter text, how can I read this newly entered text (i.e. what is its corresponding field)

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( .get_EventFromPoint(-1,-1) )
	End With
End Sub

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).ExtraLabel = "editable"
	End With
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.ShowSelectEvent = False
	.EndUpdate()
End With
159:
Is it possible to show the date's header with a shadow

With Exschedule1
	.HeaderDayLongLabel = "<sha><%dddd%>, <%mmmm%> <%d%>, <%yyyy%>"
	.Calendar.OnSelectDate = exontrol.EXSCHEDULELib.OnSelectDateEnum.exEnsureVisibleDate
	.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
End With
158:
We need to highlight a day for example no booking/disabling for that day, is the timezone good choice (method 3)

With Exschedule1
	With .Calendar
		.Selection = #6/27/2012#
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	End With
	.AllowMultiDaysEvent = False
	.NonworkingPatterns.Add(1,exontrol.EXSCHEDULELib.PatternEnum.exPatternSolid).Pattern.Color = Color.FromArgb(240,240,240)
	.NonworkingTimes.Add("value in (#6/27/2012#)","00:00","24:00",1)
	.ShowNonworkingTime = exontrol.EXSCHEDULELib.ShowNonworkingTimeEnum.exShowNonworkingTimeBack
	.Calendar.DisableZoneFormat = "value in (#6/27/2012#)"
End With
157:
We need to highlight a day for example no booking for that day, is the timezone good choice (method 2)

With Exschedule1
	With .Calendar
		.Selection = #6/27/2012#
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	End With
	.NonworkingPatterns.Add(1,exontrol.EXSCHEDULELib.PatternEnum.exPatternSolid).Pattern.Color = Color.FromArgb(240,240,240)
	.NonworkingTimes.Add("value in (#6/27/2012#)","00:00","24:00",1)
	.ShowNonworkingTime = exontrol.EXSCHEDULELib.ShowNonworkingTimeEnum.exShowNonworkingTimeBack
End With
156:
We need to highlight a day for example no booking for that day, is the timezone good choice (method 1)

With Exschedule1
	With .Calendar
		.Selection = #6/27/2012#
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	End With
	With .MarkZones.Add("zone",#6/27/2012#,#6/28/2012#)
		.BackColor = Color.FromArgb(240,240,240)
		.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty
	End With
	.ShowMarkZone = exontrol.EXSCHEDULELib.ShowMarkZoneEnum.exShowMarkZonesBack
End With
155:
Is is possible to change the background color for a specific day

With Exschedule1
	With .Calendar
		.Selection = #6/27/2012#
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	End With
	With .MarkZones.Add("zone",#6/27/2012#,#6/28/2012#)
		.BackColor = Color.FromArgb(240,240,240)
		.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternEmpty
	End With
	.ShowMarkZone = exontrol.EXSCHEDULELib.ShowMarkZoneEnum.exShowMarkZonesBack
End With
154:
I want to know how can I call a user define form when editing a time slot
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( "End exScheduleResize(5)" )
		Debug.Print( Operation )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Exschedule1_LayoutStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutStartChanging
	With Exschedule1
		Debug.Print( "Start exScheduleResize(5)" )
		Debug.Print( Operation )
	End With
End Sub

With Exschedule1
	With .Calendar
		.SingleSel = True
		.OnSelectDate = exontrol.EXSCHEDULELib.OnSelectDateEnum.exEnsureVisibleDate
	End With
	.ClipToSel = True
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMoveGroup = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowResizeSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowCreateEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
End With
153:
Can we lock the scroll bars so that it only scrolls within the selected date

With Exschedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
		.SingleSel = True
		.OnSelectDate = exontrol.EXSCHEDULELib.OnSelectDateEnum.exEnsureVisibleDate
	End With
	.ClipToSel = True
	.DayViewWidth = -1
	.DayViewHeight = 512
	With .Events
		.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
		.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
	End With
End With
152:
Is it possible to specify the dates to be printed to a single page

With Exschedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	End With
	.DayViewWidth = 116
	.DayViewHeight = 116
	With .Events
		.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
		.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
	End With
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "Range=month(value)=6;FitToPage=On"
		.PrintExt = Exschedule1
		.Preview()
	End With
End With
151:
Is it possible to specify the dates to be printed

With Exschedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	End With
	.DayViewWidth = 116
	.DayViewHeight = 116
	With .Events
		.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
		.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
	End With
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "Range=month(value)=6"
		.PrintExt = Exschedule1
		.Preview()
	End With
End With
150:
Does your control support Fit-To-Page, while printing

With Exschedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	End With
	.DayViewWidth = 512
	.DayViewHeight = 512
	With .Events
		.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
		.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
	End With
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage=On"
		.PrintExt = Exschedule1
		.Preview()
	End With
End With
149:
Does your control support Print and Print-Preview

With Exschedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	End With
	.DayViewWidth = 512
	.DayViewHeight = 512
	With .Events
		.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
		.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
	End With
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.PrintExt = Exschedule1
		.Preview()
	End With
End With
148:
How can I specify the height (time slot) of the day to be larger
With Exschedule1
	.BeginUpdate()
	.ClipToSel = True
	.DayViewHeight = 1024
	.DayViewWidth = -1
	.TimeScales.Item(0).MinorTimeRuler = "00:05"
	.EndUpdate()
End With
147:
How can I prevent resizing the schedule view, when a new date is selected
With Exschedule1
	With .Calendar
		.OnSelectDate = exontrol.EXSCHEDULELib.OnSelectDateEnum.exEnsureVisibleDate
		.Selection = #1/10/2001#
		.SingleSel = True
	End With
	.DayViewWidth = 48
End With
146:
How do I get notified once the user moves an event
' UpdateEvent event - Notifies your application once the event changes the starting or ending margins.
Private Sub Exschedule1_UpdateEvent(ByVal sender As System.Object,ByVal Ev As exontrol.EXSCHEDULELib.Event) Handles Exschedule1.UpdateEvent
	With Exschedule1
		Debug.Print( "UpdateEvent" )
		Debug.Print( Ev )
	End With
End Sub

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Events
		With .Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
			.Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditCaption
			.Caption = "your caption"
		End With
		With .Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
			.Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditCaption
			.Caption = "other caption"
		End With
	End With
End With
145:
Can You give me an example for the event handler when a user double clicks an appointment
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exschedule1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exschedule1.DblClick
	Dim e
	With Exschedule1
		e = .get_EventFromPoint(-1,-1)
		Debug.Print( "Start:" )
		Debug.Print( e )
		Debug.Print( "End:" )
		Debug.Print( e )
	End With
End Sub

With Exschedule1
	.AllowEditEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowToggleSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
	End With
	With .Events
		.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
		.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
	End With
End With
144:
Nothing is shown in the schedule view, if I use the Selection property. What am I doing wrong

With Exschedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
	End With
End With
143:
Is it possible to lock a date/day, so no events can be created, moved, and so on

With Exschedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
		.DisableZoneFormat = "value = #6/12/2001#"
	End With
	With .Events
		.Add(#6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#)
		.Add(#6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#)
	End With
End With
142:
How can I show the grid lines for minor and major rules in the schedule view

With Exschedule1
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMajorTimeScaleStyle,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMajorTimeRulerColor,Color.FromArgb(192,192,192))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleTimeScaleMajorRulerStyle,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleTimeScaleMajorRulerColor,Color.FromArgb(192,192,192))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMinorTimeScaleStyle,Color.FromArgb(3,0,0))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleTimeScaleMinorRulerStyle,Color.FromArgb(3,0,0))
End With
141:
Is it possible to show the grid lines for minor rulers too in the schedule view

With Exschedule1
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMinorTimeScaleStyle,Color.FromArgb(3,0,0))
End With
140:
How can I change the style and colors to show the grid lines

With Exschedule1
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMajorTimeScaleStyle,Color.FromArgb(48,0,0))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMajorTimeRulerColor,Color.FromArgb(255,0,0))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleTimeScaleMajorRulerStyle,Color.FromArgb(3,0,0))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleTimeScaleMajorRulerColor,Color.FromArgb(255,0,0))
End With
139:
How can I show a solid line rather than dot lines in the schedule view

With Exschedule1
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMajorTimeScaleStyle,Color.FromArgb(48,0,0))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMajorTimeRulerColor,Color.FromArgb(0,0,0))
End With
138:
Is it possible to hide or change the lines in the schedule view

With Exschedule1
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMajorTimeScaleStyle,-1)
End With
137:
Is there a possiblity to lock an event, so it can't be moved or edited

With Exschedule1
	.Calendar.Selection = #6/27/2012#
	With .Events
		With .Add(#6/27/2012 10:00:00 AM#,#6/27/2012 11:30:00 AM#)
			.BodyPattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternBDiagonal
			.Movable = False
			.Resizable = exontrol.EXSCHEDULELib.EventResizableEnum.exNoResizable
			.Selectable = False
			.Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exNoEditable
			.ExtraLabel = "locked"
		End With
		.Add(#6/27/2012 1:30:00 PM#,#6/27/2012 3:30:00 PM#)
	End With
End With
136:
Is it possible to load a PNG file on the control's background ( /com only )

With Exschedule1
	.Template = "Picture = LoadPicture(`c:\exontrol\images\card.png`)"
End With
135:
What is the Event.UserData property used for

With Exschedule1
	.Calendar.Selection = #6/27/2012#
	.DefaultEventTooltip = "Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' :" & _
" '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1" & _
")*60)) != 0 ? =:1 + ' min(s)' : '')%><b><%=(len(%6) ? `<br>UserData: `+ %6 : ``)%></b>"
	With .Events
		.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#).UserData = "Any extra data associated with the event"
		.Add(#6/27/2012 11:30:00 AM#,#6/27/2012 1:30:00 PM#)
	End With
End With
134:
Is there also an event for when a user selects another month in the date-picker control
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( "End exCalendarDateChange(3)" )
		Debug.Print( Operation )
		Debug.Print( "Currently browsing date:" )
		Debug.Print( .Calendar.Date )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Exschedule1_LayoutStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutStartChanging
	With Exschedule1
		Debug.Print( "Start exCalendarDateChange(3)" )
		Debug.Print( Operation )
		Debug.Print( "Previously browsing date:" )
		Debug.Print( .Calendar.Date )
	End With
End Sub


133:
How can I display the time-zone behind or back (method 2)

With Exschedule1
	.Calendar.Selection = #6/27/2012#
	With .MarkZones.Add("zone",#6/27/2012 10:30:00 AM#,#6/27/2012 1:00:00 PM#)
		.LongLabel = "zone"
		With .Pattern
			.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternBDiagonal
			.Color = Color.FromArgb(40,40,40)
		End With
	End With
	.ShowMarkZone = exontrol.EXSCHEDULELib.ShowMarkZoneEnum.exShowMarkZonesSemi
	.Events.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#)
End With
132:
How can I display the time-zone behind or back (method 1)

With Exschedule1
	.Calendar.Selection = #6/27/2012#
	.MarkZones.Add("zone",#6/27/2012 10:30:00 AM#,#6/27/2012 1:00:00 PM#).LongLabel = "zone"
	.ShowMarkZone = exontrol.EXSCHEDULELib.ShowMarkZoneEnum.exShowMarkZonesBack
	.Events.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#)
End With
131:
How can I add a time-zone

With Exschedule1
	.Calendar.Selection = #6/27/2012#
	.MarkZones.Add("zone",#6/27/2012 10:30:00 AM#,#6/27/2012 1:00:00 PM#).LongLabel = "zone"
End With
130:
How can I specify a larger height for the timer, or it is possible to make it bigger

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BC0MQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDGKUEwsACEIrjKCYVgOHYYQjGMZwHIUIhkGoSZKlCIRVDCKYJSzLcZAFIMRwSBiEQTmaa4W" & _
"iKIgIQiUBomGahajkMoYZCYKKSCI2S4aDZCIoTPLMagxC5GJCnSJnITJCpdV7XVgWHYVSzDM6yEScZTkFqubZsW5cNwXHZ9azkQpyFRPe6bbrqfJ/X5gN64HgBfrEUo8" & _
"cLxHCMKw3DKPYrkOLHS4CQjnSrLcqzDK8ax3GafZwcbqKWbmR5LUjTNR1DS9Hy3Kh8O4sSDbDqeZZpW7bNx2Xa9YQZcS5JBvfA8BwXC6JY7heR4ZIHTT9GbNc7zXQdHx" & _
"LiuUZrnUEwvFYIoDjeXZuHePA+A8Hx/kuYhQD2WQqg8T4vlWbJ3nuPg+l+H5BFEASAg==")
		.Add(2,"CP:1 0 -3 0 3")
	End With
	With .MarkTimes.Add("timer1",#5/24/2012 11:15:00 AM#)
		.BackColor32 = &H1000000
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
		.Label = "default height"
		.LabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exBottomRight
	End With
	With .MarkTimes.Add("timer2",#5/24/2012 1:15:00 PM#)
		.BackColor32 = &H2000000
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
		.Label = "larger height"
		.LabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exBottomRight
	End With
	.EndUpdate()
End With
129:
How I know what event was edited when it was edited by a user
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( "End Operation exScheduleEditEvent(15)" )
		Debug.Print( Operation )
		Debug.Print( "Use the global member from LayoutStartChanging, and you got the Event being edited" )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Exschedule1_LayoutStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutStartChanging
	With Exschedule1
		Debug.Print( "Start Operation exScheduleEditEvent(15)" )
		Debug.Print( Operation )
		Debug.Print( "Holds the EventFromPoint to a global member" )
		Debug.Print( .get_EventFromPoint(-1,-1) )
	End With
End Sub

With Exschedule1
	.BeginUpdate()
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThicker Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
	End With
	.EndUpdate()
End With
128:
What are timers in your exSchedule component

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes.Add("timer1",#5/24/2012 8:35:00 AM#)
		.Label = "<fgcolor=808080>fixed timer"
		.LabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exTopCenter
		.Pattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternBDiagonal
		.Pattern.Color = Color.FromArgb(224,224,224)
	End With
	With .MarkTimes.Add("timer2",#5/24/2012 10:51:00 AM#)
		.Label = "<fgcolor=00FF00>movable timer"
		.Movable = True
		.BodyEventBackColor = Color.FromArgb(128,255,128)
		.LineColor = Color.FromArgb(0,240,15)
		.TimeScaleLineColor = Color.FromArgb(0,255,0)
		.TimeScaleLabel = ""
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThicker Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesDash
		.Label = "<bgcolor=FFFFFF><fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%><br><%loc_sdate%>"
		.TimeScaleLine = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThick Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesDot4
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
127:
How do I get the selected dates in the calendar panel
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( "Operation: exScheduleSelectionChange(10)" )
		Debug.Print( Operation )
		Debug.Print( "Selected Event Count:" )
		Debug.Print( .SelCount )
		Debug.Print( "First Selected Event:" )
		Debug.Print( .get_SelEvent(0) )
	End With
End Sub

With Exschedule1
	.Calendar.Selection = #1/1/2011#
	With .Events
		.Add(#1/1/2011 10:00:00 AM#,#1/1/2011 11:30:00 AM#)
		.Add(#1/1/2011 11:30:00 AM#,#1/1/2011 1:30:00 PM#)
	End With
End With
126:
How do I get the selected dates in the calendar panel
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( "Operation: exCalendarSelectionChange(1)" )
		Debug.Print( Operation )
		With .Calendar
			Debug.Print( "Selected Date Count:" )
			Debug.Print( .SelCount )
			Debug.Print( "First Selected Date:" )
			Debug.Print( .get_SelDate(0) )
		End With
	End With
End Sub


125:
What is the easiest way to display a picture on my event

With Exschedule1
	.Calendar.Selection = #5/24/2012#
	.Pictures.Add("pic1","c:\exontrol\images\zipdisk.gif")
	.Events.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 2:00:00 PM#).Pictures = "pic1"
End With
124:
How can I programmatically move a specified event
With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.Events.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).MoveBy("-00:15")
	.EndUpdate()
End With
123:
How can I edit the event but still display its margins
' AddEvent event - Notifies your application once the a new event is added.
Private Sub Exschedule1_AddEvent(ByVal sender As System.Object,ByVal Ev As exontrol.EXSCHEDULELib.Event) Handles Exschedule1.AddEvent
	' Ev.Editable = 1
End Sub

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Events
		With .Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
			.Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditCaption
			.Caption = "your caption"
		End With
		With .Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
			.Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditCaption
			.Caption = "other caption"
		End With
	End With
End With
122:
How can I edit the events

' AddEvent event - Notifies your application once the a new event is added.
Private Sub Exschedule1_AddEvent(ByVal sender As System.Object,ByVal Ev As exontrol.EXSCHEDULELib.Event) Handles Exschedule1.AddEvent
	' Ev.Editable = 3
End Sub

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = ""
	.CreateEventLabel = ""
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Events
		With .Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
			.Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
			.LongLabel = "just your label"
		End With
		With .Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
			.Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
			.LongLabel = "just another label"
		End With
	End With
End With
121:
At the moment the scheduler only displays events from 8:00 am to 3:00 pm. How do I extend this time frame

With Exschedule1
	.DayStartTime = "07:30"
	.DayEndTime = "14:30"
End With
120:
How does localization work

With Exschedule1
	With .Calendar
		.FirstWeekDay = .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
	End With
End With
119:
Is it possible to limit the calendar to one month only

With Exschedule1
	.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	With .Calendar
		.Selection = #1/10/2001#
		.MinDate = #1/1/2001#
		.MaxDate = #1/31/2001#
	End With
End With
118:
How can I display a distingue text for repetitive events

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%256%><br><%=%264? `repetitive event`:``%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).Repetitive = "weekday(value) = 3"
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
	End With
End With
117:
How can I display the event's duration on the body of the event

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%256%><br><%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1" & _
" + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' :" & _
" '')%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
	End With
End With
116:
The sample shows how the event's body can display automatically the UserData property of the event

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%256%><br><%=%6%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).UserData = "UserData 1"
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).UserData = "UserData 2"
	End With
End With
115:
The sample shows how the event's body can display automatically the Caption property of the event

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).Caption = "Event 1"
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).Caption = "Event 2"
	End With
End With
114:
The sample shows how the event's body can display automatically the group's ID, Caption and Title

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "Group's ID:<%=%4%><br>Group's Caption: <%=%262%><br>Group's Title: <%=%263%><br><%=%256%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Groups
		With .Add(1,"Group 1")
			.Title = "First"
			.Visible = True
		End With
		With .Add(2,"Group 2")
			.Title = "Second"
			.Visible = True
		End With
	End With
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).GroupID = 1
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).GroupID = 2
	End With
End With
113:
The following sample displays automatically an "All-Day-Event: " prefix for AllDayEvent events

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%3 ? `All-Day-Event: `: ``%><%=%256%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add(#1/10/2001#,#1/10/2001#).AllDayEvent = True
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
	End With
End With
112:
How can I use the calendar's LongTimeFormat

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%257%>"
	.DefaultEventShortLabel = "<%=%257%>"
	With .Calendar
		.Selection = #1/10/2001#
		.LongTimeFormat = "<%hh%>:<%nn%>:<%ss%>"
	End With
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	.Events.Add(#1/10/2001 10:00:00 AM#,#1/11/2001 1:00:00 PM#)
End With
111:
How can I use the calendar's ShortTimeFormat. The sample displays the times in 24-hours format

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%256%>"
	.DefaultEventShortLabel = "<%=%256%>"
	.TimeScales.Item(0).MajorTimeLabel = "<%hh%>:<%nn%>"
	With .Calendar
		.Selection = #1/10/2001#
		.ShortTimeFormat = "<%h%>:<%nn%>"
	End With
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	.Events.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
End With
110:
How can I use the calendar's ShortDateFormat

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%256%>"
	.DefaultEventShortLabel = "<%=%256%>"
	With .Calendar
		.Selection = #1/10/2001#
		.ShortDateFormat = "<%loc_d2%>, <%loc_m2%> <%d%>, <%yy%>"
	End With
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	.Events.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).AllDayEvent = True
End With
109:
How can I use the calendar's LongDateFormat

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.DefaultEventLongLabel = "<%=%257%>"
	.DefaultEventShortLabel = "<%=%257%>"
	With .Calendar
		.Selection = #1/10/2001#
		.LongDateFormat = "<%loc_dddd%>, <%loc_mmm%> <%d%>, <%yyyy%>"
	End With
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	.Events.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).AllDayEvent = True
End With
108:
Is it possible to prevent updating events

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.AllowUpdateDisableZone = False
	With .Calendar
		.ShowNonMonthDays = False
		.Selection = #1/9/2001#
		.DisableZoneFormat = "value >= #1/11/2001#"
		.MinDate = #1/1/2001#
	End With
	With .Events
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
		.Add(#1/11/2001 10:00:00 AM#,#1/11/2001 1:00:00 PM#)
	End With
End With
107:
How can I specify that after editing the caption should be on top ( method 2 )

With Exschedule1
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	With .Calendar
		.ShowNonMonthDays = False
		.Selection = #1/1/2001#
	End With
	With .Events
		With .Add(#1/1/2001 10:00:00 AM#,#1/1/2001 1:00:00 PM#)
			.ExtraLabel = "title"
			.ExtraLabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exTopLeft
		End With
	End With
End With
106:
How can I specify that after editing the caption should be on top ( method 1 )

With Exschedule1
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	With .Calendar
		.ShowNonMonthDays = False
		.Selection = #1/1/2001#
	End With
	With .Events
		With .Add(#1/1/2001 10:00:00 AM#,#1/1/2001 1:00:00 PM#)
			.LongLabel = "title"
			.Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
		End With
	End With
End With
105:
How can I get ride or hide the of the calendar's grid lines

With Exschedule1
	With .Calendar
		.ShowNonMonthDays = False
		.Selection = #1/1/2001#
		.ShowGridLines = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	End With
End With
104:
How can I programmatically select a single date ( method 2 )

With Exschedule1
	.Calendar.Selection = #1/1/2012#
End With
103:
How can I programmatically select a single date ( method 1 )

With Exschedule1
	With .Calendar
		.Selection = "0"
		.set_SelectDate(#1/1/2012#,True)
	End With
End With
102:
How can I prevent showing the Today button, in the calendar panel

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
	.Calendar.ShowTodayButton = False
End With
101:
How can I display just the calendar panel, not including the schedule panel

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
End With
100:
Is is possible to toggle the selection of dates, such the first click selects the date, the second click unselects it, and so on

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
	With .Calendar
		.AllowToggleSelectKey = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
		.AllowSelectDate = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
		.SingleSel = False
	End With
End With
99:
How can I change the background color for selected dates in the calendar panel, so always is the same no matter if the control loses the focus

With Exschedule1
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarSelBackColorUnFocus,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarSelBackColor))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarSelForeColorUnFocus,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarSelForeColor))
End With
98:
Is it possible to specify a different background color for the calendar panel

With Exschedule1
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarBackColor,Color.FromArgb(240,240,240))
End With
97:
How do I change the control's border, using your EBN files

With Exschedule1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = &H1000000
End With
96:
Is it possible to prevent showing the calendar at all

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
	.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
End With
95:
How can I change the visual aspect only for a specified event

With Exschedule1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
		.Add(#6/20/2012 10:30:00 AM#,#6/20/2012 1:00:00 PM#).BodyBackColor32 = &H1000000
		.Add(#6/20/2012 1:00:00 PM#,#6/20/2012 3:00:00 PM#)
	End With
	.set_DefaultEventPadding(exontrol.EXSCHEDULELib.PaddingEdgeEnum.exPaddingAll,2)
End With
94:
How can I change the visual aspect of the events

With Exschedule1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleCreateEventBackColor,&H1000000)
	.set_Background32(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleUpdateEventsBackColor,&H1000000)
	.BodyEventBackColor32 = &H1000000
End With
93:
Is there any event to let me know once an edit has been edited

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( "End exScheduleEditEvent(15)" )
		Debug.Print( Operation )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Exschedule1_LayoutStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutStartChanging
	With Exschedule1
		Debug.Print( "Start exScheduleEditEvent(15)" )
		Debug.Print( Operation )
	End With
End Sub

With Exschedule1
	.AllowEditEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowSelectEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.VisualDesign = "gBFLBWIgBAEHhEJAEGg7IAUHXI6g0MAAmhULikUCIgg6sh4AgRCJ0Ui8HjKTj6AADACAxRDAMgBQKAAzQFAYZhpBaERiHEZoJhUAIIRZGMQxXAcMQvDSKQRhEAoJDgN" & _
"4kQKNYyQYAAYhuGaPBhASQJUhkMocR7HMygBJkUABEyYaFHdIFCQ1DykJzkCbqAgkMYeDRHQxTdQsEgpDQMIRpGA5eb+XgAV4/cTSYKQahLMizJYGUYLHgma5tTTWcTV" & _
"PLVFRrJiTYRlKTJOjCCQ0ATdUyzPAeCRzQ6QJ5kUZ6CgSUpGRjkhY6agkF6VVxCNg2BT8KzxRoAKhiGpKHpaCaUQLWMB5PaoAR8fLYAA2B6bDhGaa2XAAFr2VZkWSUBB" & _
"pnSWo8kYIg1D6NBuGyIhYnCXx5kuHZcjUAAOAcDxbF2L5mmKPIOl2Ox7l2XJVGAfRMh8CABiyYpgi8E5pFSRp4DQHBkiKOQug4ChpmqPRoiAco6HePxJDUXQAASCYpHA" & _
"WpUHmGxmlwdphlwQJWncMQzFwXknCodJcEcXRiHYUIYCwAByhyaB1lAeReDgTgAHwU44GoHB3lUJgFi2BgYCYGYGgkFx2C2ax+lARI9FKA5YHiMR2guHBHlUPIChuBRJ" & _
"k4XIjiUKg8GsY5ohkZoQh2dJ6AYZxfFkHZoF2E5gkQOBPgMIJJHwS5WJmMRvhINwRHKAAdCieZyHEHgxEAaQYkcQZUHIGRUnQJIuAGEAxAgTYclGFBRAMCgQhgTZnEII" & _
"Q0AweIdCYZYGgaIZbDaTJbiKaJKDaDojmkChGhKI5bDoHoWD+aIqDiPImmmSh2h6J5qAqBoi3yeghjCIwpnIeoqiqapKjaLormsCouh+IwrBqVo2i2a4KlqHItY0Fo+i" & _
"+bALAaF4riuOmPjCLILCaSYxCmOpwh6MotAsRoWjMC5LDqUo1m0GxSlaNgtktlgxiuWx2mKL4tnMbpHjiboKB6ZY5m6G42muOBuluJpvjObwbkqLYxG4a5CnWOIvDubp" & _
"oiyKZrG6fo3HACxWg6OwwDsYoriUGwMCMCY0iqOgnBKQ4wnsQwUFgcR8FaSJGE+fBzBqMAxkqZwikichLlKFxAEAgIA=="
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
		.Add(#6/20/2012 10:30:00 AM#,#6/20/2012 1:00:00 PM#).Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
		.Add(#6/20/2012 1:00:00 PM#,#6/20/2012 3:00:00 PM#).Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
	End With
	.set_DefaultEventPadding(exontrol.EXSCHEDULELib.PaddingEdgeEnum.exPaddingAll,2)
End With
92:
I've noticed that the background of the event while editing is transparent. Is it possible to change it

With Exschedule1
	.AllowEditEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowSelectEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.VisualDesign = "gBFLBWIgBAEHhEJAEGg41hhjNcHhgAE0KhcTiYREEHDMMgRCJ0Ti0ShEGhiAADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlS" & _
"TJcQjKKEUQTFiXIyAKL5CgkBYJBrNM5SFIAEQSKA0TDOQ5To5jEBzIxIIjaJhoNoJChNU4TIDELphECdYqUCq6cp2XgAJhYNhWHYgAIjM60LRtIAELq2bpvXAACCXHal" & _
"azsAA+bxvK67cAAd5/YBgOBAAaGC4NQ7EAANHC8Mw3DgAGLkORZHigACzS7MMxzIACQx3HqfaAABK6HomS5NUTTNR0TLNAy3HqWZpsOYZBima4lRTHNxxTBMIz3Bp+YI" & _
"4DgC5FnOCx6jkXY5DcSxlkOGxujMWo6DaCwFhOKzgFeOw1lAAoXjuXpvngAAQBAgI"
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
		.Add(#6/20/2012 1:00:00 PM#,#6/20/2012 3:00:00 PM#).Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
	End With
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleEditEventBackColor,Color.FromArgb(255,0,0))
End With
91:
How can I edit the Event.LongLabel property of the Event rather than ExtraLabel

With Exschedule1
	.AllowEditEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowSelectEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
		.Add(#6/20/2012 1:00:00 PM#,#6/20/2012 3:00:00 PM#).Editable = exontrol.EXSCHEDULELib.EditableCaptionEnum.exEditLongLabel
	End With
End With
90:
Is it possible to edit the event at a single click rather than double click

With Exschedule1
	.AllowEditEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowSelectEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
		.Add(#6/20/2012 1:00:00 PM#,#6/20/2012 3:00:00 PM#)
	End With
End With
89:
How can I prevent editing the events
With Exschedule1
	.AllowEditEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
End With
88:
How can I prevent selecting the events
With Exschedule1
	.AllowSelectEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
End With
87:
The event gets blue when selected. It is possible to draw a frame instead

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThicker Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
End With
86:
Is there an event that fires when the user selects a different day/week/month
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( Operation )
		Debug.Print( "should be on  exCalendarSelectionChange(1)" )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Exschedule1_LayoutStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutStartChanging
	With Exschedule1
		Debug.Print( Operation )
		Debug.Print( "should be on  exCalendarSelectionChange(1)" )
	End With
End Sub


85:
Can I use and display just the Caption of the Event

With Exschedule1
	.DefaultEventLongLabel = "<%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).Caption = "caption 1"
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).Caption = "caption 2"
		.Add(#6/20/2012 1:00:00 PM#,#6/20/2012 3:00:00 PM#).Caption = "caption 3"
	End With
End With
84:
How can I use the Caption property of the Event

With Exschedule1
	.DefaultEventLongLabel = "<%=%256%><br><b><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).Caption = "caption 1"
		With .Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
			.LongLabel = ""
			.ExtraLabel = "<%=%5%>"
			.Caption = "caption 2"
		End With
		With .Add(#6/20/2012 1:00:00 PM#,#6/20/2012 3:00:00 PM#)
			.LongLabel = "<%=%256%><br><b><%=%5%><br><fgcolor=808080>another text"
			.Caption = "caption 3"
		End With
	End With
End With
83:
Is it possible to display a view of appointments with more than one person

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #6/20/2012#
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
	With .Groups
		With .Add(1,"Mihai")
			.EventBackColor = Color.FromArgb(255,0,0)
			.HeaderForeColor = .EventBackColor
			.Visible = True
			.Title = .Caption
		End With
		With .Add(2,"Dave")
			.EventBackColor = Color.FromArgb(0,255,0)
			.HeaderForeColor = .EventBackColor
			.Visible = True
			.Title = .Caption
		End With
		With .Add(3,"Enrike")
			.EventBackColor = Color.FromArgb(128,128,255)
			.HeaderForeColor = .EventBackColor
			.Visible = True
			.Title = .Caption
		End With
	End With
	.DefaultEventLongLabel = "<%=%256%><br><%=%263%>"
	With .Events
		.Add(#6/20/2012 10:00:00 AM#,#6/20/2012 1:30:00 PM#).GroupID = 1
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:30:00 PM#).GroupID = 2
		.Add(#6/20/2012 1:30:00 PM#,#6/20/2012 3:00:00 PM#).GroupID = 3
	End With
	.EndUpdate()
End With
82:
How can I prevent selecting more dates in the schedule view
With Exschedule1
	.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.Calendar.SingleSel = True
End With
81:
How can I get ride of the control's scroll bars

With Exschedule1
	.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
End With
80:
I am hiding the Calendar section of the control, the question is how can I select another date in the scheduler

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
	.Calendar.Selection = #1/1/2001#
End With
79:
How can I add an event to indicate the Easter Sunday

With Exschedule1
	With .Calendar
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = "month(value) in (3,4)"
		.HighlightEvent.BackColor = Color.FromArgb(128,128,128)
		.ShowYearScroll = True
	End With
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarSelBackColorUnFocus,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarSelBackColor))
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarSelBackColor))
	With .Events
		With .Add(#6/12/2012 10:00:00 AM#,#6/12/2012 2:00:00 PM#)
			.AllDayEvent = True
			.Repetitive = "not(month(value) in (3,4,5)) ? 0 : ( floor(value)=(2:=floor(date(dateS('3/1/' + year(value)) + ((1:=(((255 - 11 * (year(value) " & _
"mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) " & _
"mod 7)))))"
			.LongLabel = "EASTER of <%=year(%1)%> falls in<br><%=%1%>"
			.ShortLabel = .LongLabel
		End With
	End With
End With
78:
I need a repetitive event happens every n-days, and stops after m-times. Can your control handle this

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThick Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = "month(value) = 6"
		.HighlightEvent.FontSize = 10
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
	With .Events
		With .Add(#6/12/2012 10:00:00 AM#,#6/12/2012 2:00:00 PM#)
			.Repetitive = "(value >= (0:=#6/1/2012#)) and ( (value - =:0) mod (1:=5) = 0) and (value-=:0) < (3*=:1)"
			.Selected = True
		End With
	End With
End With
77:
How can I add a repetitive event to occur every n days

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThick Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = "month(value) = 6"
		.HighlightEvent.FontSize = 10
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
	With .Events
		With .Add(#6/12/2012 10:00:00 AM#,#6/12/2012 2:00:00 PM#)
			.Repetitive = "value >= #6/1/2012# and ( (value - #6/1/2012#) mod 5 = 0)"
			.Selected = True
		End With
	End With
End With
76:
I am using the AutoHide option, just wondering if there is any event that notifies once the calendar panel shows or hides
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Exschedule1_LayoutEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutEndChanging
	With Exschedule1
		Debug.Print( "End exLayoutCalendarAutoHide(7)" )
		Debug.Print( Operation )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Exschedule1_LayoutStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXSCHEDULELib.LayoutChangingEnum) Handles Exschedule1.LayoutStartChanging
	With Exschedule1
		Debug.Print( "Start exLayoutCalendarAutoHide(7)" )
		Debug.Print( Operation )
	End With
End Sub

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
End With
75:
Is it possible to display the same event on multiple days

With Exschedule1
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThick Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = #1/1/2012#
		.Selection = "month(value) = 6"
		.HighlightEvent.FontSize = 10
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
	With .Events
		With .Add(#6/12/2012 10:00:00 AM#,#6/12/2012 2:00:00 PM#)
			.Repetitive = "value in (#6/8/2012#,#6/11/2012#,#6/20/2012#)"
			.Selected = True
		End With
	End With
End With
74:
How can I change the selection background color so it is the same if the control loses the focus

With Exschedule1
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.Selection = #6/12/2012#
		.HighlightEvent.FontSize = 10
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
	.Events.Add(#6/12/2012 10:00:00 AM#,#6/12/2012 2:00:00 PM#)
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarSelBackColorUnFocus,.get_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exCalendarSelBackColor))
End With
73:
How can I add a repetitive event so it occurs every Monday

With Exschedule1
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = "month(value) = 6"
		With .HighlightEvent
			.FontSize = 10
			.BackColor = Color.FromArgb(128,128,128)
		End With
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
	With .Events
		.Add(#6/12/2012 10:00:00 AM#,#6/12/2012 2:00:00 PM#).Repetitive = "weekday(value) = 1"
	End With
End With
72:
How can I select the current month

With Exschedule1
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = "month(value) = month(date(``))"
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
End With
71:
How can I select the next two days

With Exschedule1
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = "(value - int(date(``))) in (1,2,0)"
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
End With
70:
How can I select the last two days

With Exschedule1
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = "(int(date(``)) - value) in (1,2,0)"
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
End With
69:
How can I select the current week
With Exschedule1
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(date(``))-1)/7))"
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
End With
68:
Is it possible to highlight or change the background or foreground color for the today date in the schedule panel

With Exschedule1
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exSunday
		.Selection = "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday" & _
"(date(``))-1)/7))"
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	.set_Background(exontrol.EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,Color.FromArgb(240,240,240))
End With
67:
How can I display no working/non-working days in the control

With Exschedule1
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
End With
66:
The schedule displays a blue border around the selected dates. How can I get ride of that

With Exschedule1
	With .Calendar
		.ShowNonMonthDays = False
		.Selection = #6/18/2012#
	End With
	.BorderSelStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
End With
65:
The calendar panel shows days that belongs to another month. How can I display just the days within the current month

With Exschedule1
	.Calendar.ShowNonMonthDays = False
End With
64:
Is it possible to show the non-working days with a solid color instead

With Exschedule1
	With .Calendar
		.Selection = #6/14/2012#
		.Selection = "value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)"
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
		.NonworkingDaysPattern = exontrol.EXSCHEDULELib.PatternEnum.exPatternSolid
		.NonworkingDaysColor = Color.FromArgb(224,224,224)
	End With
End With
63:
How can I display the now-working days in the schedule panel too

With Exschedule1
	With .Calendar
		.Selection = #6/14/2012#
		.Selection = "value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)"
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
	End With
	.NonworkingTimes.Add(1,"00:00","00:00",-1)
End With
62:
How can I make the control read-only

With Exschedule1
	.AllowCreateEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMoveEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowResizeEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowSelectEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exDisallow
	.Calendar.Selection = #5/24/2012#
	.Calendar.Selection = "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
	.Events.Add(#5/25/2012 9:30:00 AM#,#5/25/2012 1:00:00 PM#)
End With
61:
How can I check/uncheck a group, so it is visible after I add it

With Exschedule1
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
	.Groups.Add(1,"Pro").Visible = True
End With
60:
The drop down button to show groups is not visible, even I set the DisplayGroupingButton. What Can I do

With Exschedule1
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
End With
59:
It is possible to translate "All" to "Todos" or to something else

With Exschedule1
	.set_Description(exontrol.EXSCHEDULELib.DescriptionTypeEnum.exGroupBarAll,"(todos)")
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
	.Groups.Add(1,"Pro")
End With
58:
How can I remove the control's scroll bars

With Exschedule1
	.ScrollBars = exontrol.EXSCHEDULELib.ScrollBarsEnum.exNoScroll
End With
57:
How can I select a month

With Exschedule1
	.Calendar.Selection = "month(value) = month(date(``))"
End With
56:
How can I display two or more dates in the scheduler (Method 2)

With Exschedule1
	With .Calendar
		.Selection = #5/24/2012#
		.Selection = "value in ( #5/24/2012#, #5/25/2012# )"
	End With
End With
55:
How can I display two or more dates in the scheduler (Method 1)

With Exschedule1
	With .Calendar
		.Selection = "0"
		.set_SelectDate(#5/24/2012#,True)
		.set_SelectDate(#5/25/2012#,True)
	End With
End With
54:
How can I define a different color for nonworking part for different days

With Exschedule1
	.BeginUpdate()
	With .Calendar
		.Selection = #5/21/2012#
		.Selection = "(value >= #05/21/2012#) and (value <= #05/25/2012#)"
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
	End With
	With .NonworkingPatterns
		.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternBDiagonal).Pattern.Color = Color.FromArgb(255,0,0)
		.Add(1235,exontrol.EXSCHEDULELib.PatternEnum.exPatternBDiagonal).Pattern.Color = Color.FromArgb(0,255,0)
		.Add(1236,exontrol.EXSCHEDULELib.PatternEnum.exPatternBDiagonal).Pattern.Color = Color.FromArgb(0,0,255)
		With .Add(1237,exontrol.EXSCHEDULELib.PatternEnum.exPatternFrameThick Or exontrol.EXSCHEDULELib.PatternEnum.exPatternCross)
			.Pattern.Color = Color.FromArgb(128,128,128)
			.Pattern.FrameColor = Color.FromArgb(64,64,64)
			.BackColor = Color.FromArgb(255,255,0)
		End With
	End With
	With .NonworkingTimes
		.Add("weekday(value) in (0,1)","10:00","11:45",1234)
		.Add("weekday(value) = 2","00:00","08:45",1235)
		.Add("weekday(value) = 2","15:00","24:00",1235)
		.Add("weekday(value) in (3,5)","12:15","13:00",1236)
		.Add("weekday(value) = 4","13:30","15:00",1237)
	End With
	.ShowNonworkingTime = exontrol.EXSCHEDULELib.ShowNonworkingTimeEnum.exShowNonworkingTimeSemi
	.EndUpdate()
End With
53:
Is it possible to show both nonworking and the events, using semi-transparent color

With Exschedule1
	With .Calendar
		.Selection = #5/24/2012#
		.Selection = "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
	End With
	With .NonworkingPatterns
		.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternBrick)
		With .Add(9871,exontrol.EXSCHEDULELib.PatternEnum.exPatternFrameThick Or exontrol.EXSCHEDULELib.PatternEnum.exPatternYard)
			.BackColor = Color.FromArgb(255,0,0)
		End With
		With .Add(9872,exontrol.EXSCHEDULELib.PatternEnum.exPatternFrameThick Or exontrol.EXSCHEDULELib.PatternEnum.exPatternYard)
			.BackColor = Color.FromArgb(255,255,0)
		End With
	End With
	With .NonworkingTimes
		.Add("1","00:00","08:45",1234)
		.Add("weekday(value) = 5","10:00","11:45",9871)
		.Add("weekday(value) = 4","12:00","12:35",9872)
	End With
	.Events.Add(#5/25/2012 9:30:00 AM#,#5/25/2012 1:00:00 PM#)
	.ShowNonworkingTime = exontrol.EXSCHEDULELib.ShowNonworkingTimeEnum.exShowNonworkingTimeSemi
End With
52:
Is it possible to show the nonworking part behind, on the back

With Exschedule1
	With .Calendar
		.Selection = #5/24/2012#
		.Selection = "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
	End With
	With .NonworkingPatterns
		.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternBrick)
		With .Add(9871,exontrol.EXSCHEDULELib.PatternEnum.exPatternFrameThick Or exontrol.EXSCHEDULELib.PatternEnum.exPatternYard)
			.BackColor = Color.FromArgb(255,0,0)
		End With
		With .Add(9872,exontrol.EXSCHEDULELib.PatternEnum.exPatternFrameThick Or exontrol.EXSCHEDULELib.PatternEnum.exPatternYard)
			.BackColor = Color.FromArgb(255,255,0)
		End With
	End With
	With .NonworkingTimes
		.Add("1","00:00","08:45",1234)
		.Add("weekday(value) = 5","10:00","11:45",9871)
		.Add("weekday(value) = 4","12:00","12:35",9872)
	End With
	.Events.Add(#5/25/2012 9:30:00 AM#,#5/25/2012 1:00:00 PM#)
	.ShowNonworkingTime = exontrol.EXSCHEDULELib.ShowNonworkingTimeEnum.exShowNonworkingTimeBack
End With
51:
Can you explain how the non working day patterns work and how to define for different days of the week

With Exschedule1
	With .Calendar
		.Selection = #5/24/2012#
		.Selection = "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
	End With
	With .NonworkingPatterns
		.Add(1234,exontrol.EXSCHEDULELib.PatternEnum.exPatternBrick)
		With .Add(9871,exontrol.EXSCHEDULELib.PatternEnum.exPatternFrameThick Or exontrol.EXSCHEDULELib.PatternEnum.exPatternYard)
			.BackColor = Color.FromArgb(255,0,0)
		End With
		With .Add(9872,exontrol.EXSCHEDULELib.PatternEnum.exPatternFrameThick Or exontrol.EXSCHEDULELib.PatternEnum.exPatternYard)
			.BackColor = Color.FromArgb(255,255,0)
		End With
	End With
	With .NonworkingTimes
		.Add("1","00:00","08:45",1234)
		.Add("weekday(value) = 5","10:00","11:45",9871)
		.Add("weekday(value) = 4","12:00","12:35",9872)
	End With
End With
50:
How can I add a nonworking time

With Exschedule1
	With .NonworkingTimes
		.Add("1","00:00","08:45",-1)
		.Add("weekday(value) = weekday(date(``))","10:00","11:15",-1)
	End With
End With
49:
How can I get the event from the cursor

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exschedule1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exschedule1.MouseMoveEvent
	With Exschedule1
		Debug.Print( "Calendar.DateFromPoint" )
		Debug.Print( .Calendar.get_DateFromPoint(-1,-1) )
		Debug.Print( "AnchorFromPoint" )
		Debug.Print( .get_AnchorFromPoint(-1,-1) )
		Debug.Print( "DateTimeFromPoint" )
		Debug.Print( .get_DateTimeFromPoint(-1,-1) )
		Debug.Print( "TimeFromPoint" )
		Debug.Print( .get_TimeFromPoint(-1,-1) )
		Debug.Print( "TimeScaleFromPoint" )
		Debug.Print( .get_TimeScaleFromPoint(-1,-1) )
		Debug.Print( "GroupFromPoint" )
		Debug.Print( .get_GroupFromPoint(-1,-1) )
		Debug.Print( "GroupHeaderFromPoint" )
		Debug.Print( .get_GroupHeaderFromPoint(-1,-1) )
		Debug.Print( "MarkZoneFromPoint" )
		Debug.Print( .get_MarkZoneFromPoint(-1,-1) )
		Debug.Print( "NonworkingTimeFromPoint" )
		Debug.Print( .get_NonworkingTimeFromPoint(-1,-1) )
		Debug.Print( "MarkTimeFromPoint" )
		Debug.Print( .get_MarkTimeFromPoint(-1,-1) )
		Debug.Print( "EventFromPoint" )
		Debug.Print( .get_EventFromPoint(-1,-1) )
		Debug.Print( "PictureFromPoint" )
		Debug.Print( .get_PictureFromPoint(-1,-1) )
	End With
End Sub

With Exschedule1
	.BeginUpdate()
	.AllowMultiDaysEvent = False
	.AllowCreateEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exCTRLKey Or exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowMoveEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exCTRLKey Or exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowMoveTimeScale = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowMoveSchedule = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowSelectEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exCTRLKey Or exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.AllowResizeEvent = exontrol.EXSCHEDULELib.AllowKeysEnum.exLeftClick
	.Calendar.MaxMonthY = 6
	.SelectEventStyle = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThicker Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesSolid
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes.Add("timer",#5/24/2012 11:35:00 AM#)
		.TimeScaleLabel = ""
		.Label = "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
		.LabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exBottomRight
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThicker Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesDash
		.BodyEventBackColor = Color.FromArgb(128,0,0)
		.BodyEventForeColor = Color.FromArgb(255,255,255)
		.Movable = True
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
48:
How can I show the timer only in the chart section

With Exschedule1
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes.Add("timer",#5/24/2012 11:35:00 AM#)
		.Label = " <font ;12>timer</font> "
		.LabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exBottomRight
		.TimeScaleLabel = ""
		.TimeScaleLine = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	End With
End With
47:
How can I let the user to move the timer from the cursor

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes.Add("timer",#5/24/2012 11:35:00 AM#)
		.TimeScaleLabel = ""
		.Label = "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
		.LabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exBottomRight
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThicker Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesDash
		.BodyEventBackColor = Color.FromArgb(128,0,0)
		.BodyEventForeColor = Color.FromArgb(255,255,255)
		.Movable = True
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
46:
How can I show the timer only in the time scale

With Exschedule1
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes.Add("timer",#5/24/2012 11:35:00 AM#)
		.TimeScaleLabel = " <font ;12>timer</font> "
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
	End With
End With
45:
I have seen some screen shots and noticed, that you can place images on a timer. How can I do that

With Exschedule1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.Calendar.Selection = #5/24/2012#
	.StatusEventSize = 8
	.StatusEventColor = Color.FromArgb(255,255,255)
	With .MarkTimes.Add("timer",#5/24/2012 11:35:00 AM#)
		.Label = "<img>pic1</img>"
		.TimeScaleLabel = "<fgcolor=FF0000><b><%hh%>:<%nn%> <%AM/PM%><br><c><img>1</img>"
		.LabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exMiddleRight
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThicker Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesDash
		.Movable = True
		.StatusEventPattern.Type = exontrol.EXSCHEDULELib.PatternEnum.exPatternShadow
		.StatusEventPattern.Color = Color.FromArgb(255,0,0)
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
44:
How can I change the timer's color

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes
		With .Add("timer",#5/24/2012 11:35:00 AM#)
			.Movable = True
			.LineColor = Color.FromArgb(0,0,255)
			.StatusEventBackColor = Color.FromArgb(0,0,255)
			.TimeScaleLineColor = Color.FromArgb(0,0,255)
			.TimeScaleLabel = "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
		End With
	End With
	.EndUpdate()
End With
43:
Can I add multiple timers with different colors

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes
		With .Add("timer1",#5/24/2012 9:35:00 AM#)
			.Movable = True
			.StatusEventBackColor = Color.FromArgb(255,0,0)
		End With
		With .Add("timer2",#5/24/2012 1:35:00 PM#)
			.Movable = True
			.LineColor = Color.FromArgb(0,255,0)
			.StatusEventBackColor = .LineColor
			.TimeScaleLineColor = .LineColor
			.TimeScaleLabel = "<fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%>"
		End With
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
42:
How can I specify a different color for the status of the event that intersects with the timer

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes.Add("timer",#5/24/2012 11:35:00 AM#)
		.TimeScaleLabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exTopCenter
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThick Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesHDot4
		.TimeScaleLine = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesHDot4
		.StatusEventBackColor = Color.FromArgb(255,0,0)
		.Movable = True
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
41:
How can the chart displays the events from the timer with a different color

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes.Add("timer",#5/24/2012 11:35:00 AM#)
		.TimeScaleLabel = ""
		.Label = "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
		.LabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exBottomRight
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThicker Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesDash
		.BodyEventBackColor = Color.FromArgb(128,0,0)
		.BodyEventForeColor = Color.FromArgb(255,255,255)
		.Movable = True
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
40:
Is it possible to display the timer's label on the chart, instead time scales

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes.Add("timer",#5/24/2012 11:35:00 AM#)
		.TimeScaleLabel = ""
		.Label = "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
		.LabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exBottomRight
		.Line = exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesThicker Or exontrol.EXSCHEDULELib.LinesStyleEnum.exLinesDash
	End With
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
39:
How can I add a timer to the scheduler

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.MarkTimes.Add("timer",#5/24/2012 11:35:00 AM#)
	With .Events
		.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#)
		.Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
38:
Is it possible to define the small increment to 5 minutes

With Exschedule1
	.DayEndTime = "10:00"
	.TimeScales.Item(0).MinorTimeRuler = "00:05"
End With
37:
How can I change the time format to 24 hours to be displayed in the control's time scale

With Exschedule1
	With .TimeScales.Item(0)
		.MajorTimeLabel = "<%hh%>:<%nn%>"
		.Width = 32
	End With
End With
36:
How can I change the time zone

With Exschedule1
	.DayEndTime = "13:00"
	With .TimeScales.Item(0)
		.TimeZone = "+03:00"
		.Caption = .TimeZone
	End With
End With
35:
Is it possible to add more time scales

With Exschedule1
	.DayEndTime = "13:00"
	With .TimeScales.Add("+03:00")
		.AlignLeft = False
		.Caption = "EST <b>+03"
	End With
End With
34:
How can I get any event to be notified if a picture or icon is clicked (Method 2)

' PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
Private Sub Exschedule1_PictureClick(ByVal sender As System.Object,ByVal Key As String) Handles Exschedule1.PictureClick
	With Exschedule1
		Debug.Print( Key )
	End With
End Sub

With Exschedule1
	.BeginUpdate()
	.ShowSelectEvent = False
	.Calendar.Selection = #5/24/2012#
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Pictures
		.Add("pic1","c:\exontrol\images\card.png")
		.Add("pic2","c:\exontrol\images\diary.png")
	End With
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).Pictures = "pic1/pic2"
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#).Pictures = "1,2/3"
		.Add(#5/24/2012 1:00:00 PM#,#5/24/2012 3:45:00 PM#).ExtraPictures = "pic2/1"
	End With
	.EndUpdate()
End With
33:
How can I display a tooltip for an anchor element, for instance

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exschedule1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exschedule1.MouseMoveEvent
	Dim s
	With Exschedule1
		s = .get_AnchorFromPoint(-1,-1)
		.ShowToolTip(s,"info","","+16")
	End With
End Sub

With Exschedule1
	.BeginUpdate()
	.ShowSelectEvent = False
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#).ExtraLabel = "<a remove>remove</a>"
		.Add(#5/24/2012 1:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
32:
Is it possible to prevent selecting events
With Exschedule1
	.BeginUpdate()
	.ShowSelectEvent = False
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#).Selected = True
		.Add(#5/24/2012 1:45:00 PM#,#5/24/2012 3:45:00 PM#)
	End With
	.EndUpdate()
End With
31:
How can I get any event to be notified if a picture or icon is clicked (Method 1)

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exschedule1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exschedule1.AnchorClick
	With Exschedule1
		Debug.Print( AnchorID )
	End With
End Sub

With Exschedule1
	.BeginUpdate()
	.ShowSelectEvent = False
	.Calendar.Selection = #5/24/2012#
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Pictures
		.Add("pic1","c:\exontrol\images\card.png")
		.Add("pic2","c:\exontrol\images\diary.png")
	End With
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).ExtraLabel = "<a pic1><img>pic1:32</img></a>"
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#).ExtraLabel = "<a pic2><img>pic2:48</img></a>"
		.Add(#5/24/2012 1:45:00 PM#,#5/24/2012 3:45:00 PM#).LongLabel = "Start: <%=%1%><br>End: <%=%2%><br><br>Icon: <a 1><img>1</img></a> - <a 2><img>2</img></a>"
	End With
	.EndUpdate()
End With
30:
How can I display a picture or an icon to an event

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Pictures
		.Add("pic1","c:\exontrol\images\card.png")
		.Add("pic2","c:\exontrol\images\diary.png")
	End With
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).ExtraLabel = "<img>pic1:32</img>"
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#).ExtraLabel = "<img>pic2:48</img>"
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#).Pictures = "1/2,3/pic1"
		With .Add(#5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#)
			.ExtraPictures = "1/2"
			.Pictures = "1,pic1,2,pic2/3"
		End With
	End With
	.EndUpdate()
End With
29:
Is it possible to display the group's caption or ID on the event's label

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .Groups
		With .Add(1,"Group 1")
			.Visible = True
			.EventBackColor = Color.FromArgb(128,128,128)
			.Title = "1'st Group"
		End With
		With .Add(2,"Group 2")
			.Visible = True
			.EventBackColor = Color.FromArgb(255,0,0)
			.Title = "2'nd Group"
		End With
	End With
	.DefaultEventLongLabel = "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).GroupID = 1
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 2
		.Add(#5/24/2012 0:30:00 PM#,#5/24/2012 2:30:00 PM#).GroupID = 1
	End With
	.EndUpdate()
End With
28:
How can I show the events from different groups using the same color

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
	.ApplyGroupingColors = False
	With .Groups
		With .Add(1,"Group 1")
			.Visible = True
			.EventBackColor = Color.FromArgb(128,128,128)
			.Title = "1'st Group"
		End With
		With .Add(2,"Group 2")
			.Visible = True
			.EventBackColor = Color.FromArgb(255,0,0)
			.Title = "2'nd Group"
		End With
	End With
	.DefaultEventLongLabel = "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).GroupID = 1
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 2
		.Add(#5/24/2012 0:30:00 PM#,#5/24/2012 2:30:00 PM#).GroupID = 1
	End With
	.EndUpdate()
End With
27:
Is it possible to hide the grid lines in the calendar panel

With Exschedule1
	.Calendar.ShowGridLines = exontrol.EXSCHEDULELib.LinesStyleEnum.exNoLines
End With
26:
How can I control the number of months displayed on the calendar pane
With Exschedule1
	With .Calendar
		.MaxMonthX = 2
		.MaxMonthY = 2
	End With
End With
25:
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 2)

With Exschedule1
	With .Calendar
		.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
		.MonthNames = "J-A F-E M-A A-P M-A J-U J-L A-U S-P O-C N-V D-C"
		.WeekDays = "Du Lu Ma Mi Jo Vi Si"
		.TodayCaption = "A z i"
	End With
End With
24:
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 1)

With Exschedule1
	With .Calendar
		.FirstWeekDay = .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
	End With
End With
23:
How can I show the events grouped

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
	With .Groups
		With .Add(1,"Group 1")
			.Visible = True
			.EventBackColor = Color.FromArgb(128,128,128)
			.HeaderBackColor = .EventBackColor
		End With
		With .Add(2,"Group 2")
			.Visible = True
			.EventBackColor = Color.FromArgb(255,0,0)
			.HeaderBackColor = .EventBackColor
		End With
	End With
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).GroupID = 1
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 2
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#).GroupID = 1
	End With
	.EndUpdate()
End With
22:
How can I show 2 or more days in the scheduler

With Exschedule1
	.BeginUpdate()
	With .Calendar
		.Selection = "0"
		.set_SelectDate(#5/24/2012#,True)
		.set_SelectDate(#5/25/2012#,True)
	End With
	.EndUpdate()
End With
21:
Is it possible to change the first week day

With Exschedule1
	.Calendar.FirstWeekDay = exontrol.EXSCHEDULELib.WeekDayEnum.exMonday
End With
20:
How can I define the new starting / ending points of the day

With Exschedule1
	.DayStartTime = "07:30"
	.DayEndTime = "12:45"
End With
19:
Is it possible to change the label to be displayed when user moves the events

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.UpdateEventsLabel = "Start: <%=%1%><br>End: <%=%2%>"
	.UpdateEventsLabelAlign = exontrol.EXSCHEDULELib.ContentAlignmentEnum.exMiddleCenter
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
18:
How can I change the default tooltip when adding new events

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.DefaultEventTooltip = "Start: <%=%1%><br>End: <%=%2%>"
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
17:
How can I change the default label when adding new events

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.CreateEventLabel = "Start: <%=%1%><br>End: <%=%2%>"
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
16:
How can I change the default label when adding new events

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.DefaultEventLongLabel = "Start: <%=%1%><br>End: <%=%2%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
15:
How can I programatically add events to the control

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
14:
How can I hide the status part of a specific event

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).ShowStatus = False
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
13:
Is it possible to change the status color for a specific event

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).StatusColor = Color.FromArgb(255,0,0)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
12:
Is it possible to change the background color for a specific event

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).BodyBackColor = Color.FromArgb(255,0,0)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
11:
Can I change the size of the status to be larger

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.StatusEventSize = 8
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
10:
I do not need a status, can I hide it

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.ShowStatusEvent = False
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
9:
Is it possible to change the status's default background color

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.StatusEventColor = Color.FromArgb(255,0,0)
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
8:
How can I change the visual appearance of the Events (Method 2)

With Exschedule1
	.BeginUpdate()
	.Calendar.Selection = #5/24/2012#
	.VisualDesign = "gBFLBWIgBAEHhEJAEGg55hAvCcHAkIbD/i0JE0KhYnjQDFEaAQDhEMAAIhAPhBYKA6KhyMJjNZiMJyEA2EAxAUIk0HlEHlUsl0wmU0GYgGcig87AE9AE/lsvmMzEAym" & _
"8BA=="
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
7:
How can I change the visual appearance of the Events (Method 1)

With Exschedule1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Calendar.Selection = #5/24/2012#
	.BodyEventBackColor32 = &H1000000
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#)
		.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#)
		.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#)
	End With
	.EndUpdate()
End With
6:
How can I show the scheduler panel only, so no Calendar panel is shown

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
End With
5:
May I display the calendar in the right side of the control

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarFit Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels
End With
4:
Is it possible to disable resizing the vertical splitter

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exDisableSplitter Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
End With
3:
How can I show the Calendar panel only

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight
End With
2:
Is there an AutoHide option for the Calendar panel

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide
End With
1:
How can I hide the Calendar panel

With Exschedule1
	.OnResizeControl = exontrol.EXSCHEDULELib.OnResizeControlEnum.exChangePanels Or exontrol.EXSCHEDULELib.OnResizeControlEnum.exHideSplitter
End With