296:
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelectEventStyle to OLEexLinesSolid
	Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
	Set ComDefaultEventLongLabel to "<%=%><%= ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262  + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( (`Group's ID:` + %4 + ` , ` + %256 ) replace `<br>` with `,` ) ) %>"
	Set ComDefaultEventShortLabel to "<%=%><%=  ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262  + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( (`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\r\n` ) %>"
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/10/2001"
	Send Destroy to hoCalendar
	Set ComDisplayGroupingButton to True
	Set ComShowGroupingEvents to True
	Set ComHeaderGroupHeight to 1
	Set ComShowAllDayHeader to True
	Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups 1 "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComTitle of hoGroup to "First"
			Set ComVisible of hoGroup to True
		Send Destroy to hoGroup
		Variant voGroup1
		Get ComAdd of hoGroups 2 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComTitle of hoGroup1 to "Second"
			Set ComVisible of hoGroup1 to True
		Send Destroy to hoGroup1
	Send Destroy to hoGroups
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComGroupID of hoEvent to 1
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 1:00:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComGroupID of hoEvent1 to 2
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComGroupID of hoEvent2 to 1
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComGroupID of hoEvent3 to 2
			Set ComAllDayEvent of hoEvent3 to True
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComGroupID of hoEvent4 to 2
			Set ComAllDayEvent of hoEvent4 to True
		Send Destroy to hoEvent4
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
295:
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelectEventStyle to OLEexLinesSolid
	Set ComDefaultEventLongLabel to "<%=%><%= %4 < 0  ? `<b>` + %256 + `</b> <off -4>(all)` : ( (`Group's ID:` + %4 + `<br>Group's Caption:` + %262  + `<br>Group's Title: ` + %263 + `<br>` + %256 ) replace ( %3 ? `<br>` : ``) with `,` ) %>"
	Set ComDefaultEventShortLabel to "<%=%><%=  %4 < 0 ? %256 : ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262  + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( (`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\r\n` ) %>"
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/10/2001"
	Send Destroy to hoCalendar
	Set ComDisplayGroupingButton to True
	Set ComShowGroupingEvents to True
	Set ComHeaderGroupHeight to 1
	Set ComShowAllDayHeader to True
	Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups 1 "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComTitle of hoGroup to "First"
			Set ComVisible of hoGroup to True
		Send Destroy to hoGroup
		Variant voGroup1
		Get ComAdd of hoGroups 2 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComTitle of hoGroup1 to "Second"
			Set ComVisible of hoGroup1 to True
		Send Destroy to hoGroup1
	Send Destroy to hoGroups
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComGroupID of hoEvent to 1
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 1:00:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComGroupID of hoEvent1 to 2
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComGroupID of hoEvent2 to 1
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComGroupID of hoEvent3 to -1
			Set ComAllDayEvent of hoEvent3 to True
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComGroupID of hoEvent4 to 2
			Set ComAllDayEvent of hoEvent4 to True
		Send Destroy to hoEvent4
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
294:
The Event.Caption does not support HTML, and so if using in DefaultEventLongLabel/DefaultEventShortLabel no HTML is applied, instead HTML tags are displayed as plain text. What can be done

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/24/2012"
	Send Destroy to hoCalendar
	Set ComDefaultEventLongLabel to "<%=%><%=%5%><br><%=%256%>"
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/24/2012 9:00:00 AM" "5/24/2012 10:00:00 AM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComCaption of hoEvent to "textzeile1<br>textzeile2<br>textzeile3"
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 11:00:00 AM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComCaption of hoEvent1 to "textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>"
		Send Destroy to hoEvent1
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
293:
Please could you let me know how I can remove/hide the time scale/marks from the scheduler. I am creating a month view that only requires a box for the day and no time markers required

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voTimeScales
	Get ComTimeScales to voTimeScales
	Handle hoTimeScales
	Get Create (RefClass(cComTimeScales)) to hoTimeScales
	Set pvComObject of hoTimeScales to voTimeScales
		Variant voTimeScale
		Get ComItem of hoTimeScales 0 to voTimeScale
		Handle hoTimeScale
		Get Create (RefClass(cComTimeScale)) to hoTimeScale
		Set pvComObject of hoTimeScale to voTimeScale
			Set ComVisible of hoTimeScale to False
		Send Destroy to hoTimeScale
	Send Destroy to hoTimeScales
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/24/2012"
		Send ComSelect of hoCalendar OLEexSelectMonth
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
		Variant voEvent
		Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComShowStatus of hoEvent to False
		Send Destroy to hoEvent
		Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to Nothing
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
292:
Is it possible to lock down the view to allow resizing of the days column but not to allow the scrolling outside of the dictated time zone

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/21/2012"
		Set ComSelection of hoCalendar to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	Send Destroy to hoCalendar
	Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
	Set ComScrollBars to OLEexVertical
	Set ComShowViewCompact to OLEexViewSingleRow
	Set ComAllowMoveSchedule to OLEexDisallow
	Set ComAllowResizeSchedule to OLEexDisallow
	Set ComAllowToggleSchedule to OLEexDisallow
	Set ComAllowExchangePanels to OLEexDisallow
	Set ComAllowMoveTimeScale to OLEexDisallow
	Set ComAllowResizeTimeScale to OLEexDisallow
	Set ComAllowMultiDaysEvent to False
	Set ComBackground OLEexScheduleBorderSelColor to (ComBackground(Self,OLEexScheduleBorderSelColorUnFocus))
	Variant voTimeScales
	Get ComTimeScales to voTimeScales
	Handle hoTimeScales
	Get Create (RefClass(cComTimeScales)) to hoTimeScales
	Set pvComObject of hoTimeScales to voTimeScales
		Variant voTimeScale
		Get ComItem of hoTimeScales 0 to voTimeScale
		Handle hoTimeScale
		Get Create (RefClass(cComTimeScale)) to hoTimeScale
		Set pvComObject of hoTimeScale to voTimeScale
			Set ComMinorTimeRuler of hoTimeScale to "00:10"
		Send Destroy to hoTimeScale
	Send Destroy to hoTimeScales
	Set ComDayStartTime to "10:00"
	Set ComDayEndTime to "14:00"
	Send ComEndUpdate
End_Procedure
291:
I would also like to control the column view to only show 5 days at a time with a side scroll, how would I achieve this please

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowAllDayHeader to True
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/21/2012"
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	Send Destroy to hoCalendar1
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComScrollBars to OLEexVertical
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComAllDayEvent of hoEvent to True
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComAllDayEvent of hoEvent1 to True
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
290:
Can I force the schedule grid to only show a single day and then to step through each day using either a custom button click or using the built in schedule calendar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelectDate of hoCalendar "5/20/2012" to True
		Send ComSelect of hoCalendar OLEexSelectFocusDay
	Send Destroy to hoCalendar
	Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
	Set ComScrollBars to OLEexNoScroll
	Set ComShowViewCompact to OLEexViewSingleRow
	Set ComAllowMoveSchedule to OLEexDisallow
	Set ComAllowResizeSchedule to OLEexDisallow
	Set ComAllowToggleSchedule to OLEexDisallow
	Set ComAllowExchangePanels to OLEexDisallow
	Set ComAllowMoveTimeScale to OLEexDisallow
	Set ComAllowResizeTimeScale to OLEexDisallow
	Set ComAllowMultiDaysEvent to False
	Set ComBackground OLEexScheduleBorderSelColor to (ComBackground(Self,OLEexScheduleBorderSelColorUnFocus))
	Send ComEndUpdate
End_Procedure
289:
Can I colour the background of the schedulers grid from a time point to another EG 9:00 to 12:00. This is to show users that they can only book appointments in this time zone

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/27/2012"
	Send Destroy to hoCalendar
	Variant voMarkZones
	Get ComMarkZones to voMarkZones
	Handle hoMarkZones
	Get Create (RefClass(cComMarkZones)) to hoMarkZones
	Set pvComObject of hoMarkZones to voMarkZones
		Variant voMarkZone
		Get ComAdd of hoMarkZones "zoneA" "6/27/2012 9:00:00 AM" "6/27/2012 11:00:00 AM" to voMarkZone
		Handle hoMarkZone
		Get Create (RefClass(cComMarkZone)) to hoMarkZone
		Set pvComObject of hoMarkZone to voMarkZone
			Variant voPattern
			Get ComPattern of hoMarkZone to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternEmpty
			Send Destroy to hoPattern
			Set ComLongLabel of hoMarkZone to "Yellow"
			Set ComBackColor of hoMarkZone to (RGB(255,255,0))
		Send Destroy to hoMarkZone
	Send Destroy to hoMarkZones
	Variant voMarkZones1
	Get ComMarkZones to voMarkZones1
	Handle hoMarkZones1
	Get Create (RefClass(cComMarkZones)) to hoMarkZones1
	Set pvComObject of hoMarkZones1 to voMarkZones1
		Variant voMarkZone1
		Get ComAdd of hoMarkZones1 "zoneB" "6/27/2012 12:00:00 PM" "6/27/2012 1:30:00 PM" to voMarkZone1
		Handle hoMarkZone1
		Get Create (RefClass(cComMarkZone)) to hoMarkZone1
		Set pvComObject of hoMarkZone1 to voMarkZone1
			Variant voPattern1
			Get ComPattern of hoMarkZone1 to voPattern1
			Handle hoPattern1
			Get Create (RefClass(cComPattern)) to hoPattern1
			Set pvComObject of hoPattern1 to voPattern1
				Set ComType of hoPattern1 to OLEexPatternEmpty
			Send Destroy to hoPattern1
			Set ComLongLabel of hoMarkZone1 to "Green"
			Set ComBackColor of hoMarkZone1 to (RGB(0,255,0))
		Send Destroy to hoMarkZone1
	Send Destroy to hoMarkZones1
	Send ComEndUpdate
End_Procedure
288:
My programming language has the following format for date 2012-05-24-13.04.06.810000 every other format returns a compiler error. Is there a possibility to use a string for the date

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Variant v
			Get ComExecuteTemplate "#5/24/2012#" to v
		Set ComSelection of hoCalendar to v
	Send Destroy to hoCalendar
	Variant voMarkTimes
	Get ComMarkTimes to voMarkTimes
	Handle hoMarkTimes
	Get Create (RefClass(cComMarkTimes)) to hoMarkTimes
	Set pvComObject of hoMarkTimes to voMarkTimes
Variant vTime
			Get ComExecuteTemplate "#5/24/2012 11:35#" to vTime
				Variant voMarkTime
		Get ComAdd of hoMarkTimes "timer" vTime to voMarkTime
		Handle hoMarkTime
		Get Create (RefClass(cComMarkTime)) to hoMarkTime
		Set pvComObject of hoMarkTime to voMarkTime
			Set ComMovable of hoMarkTime to True
			Set ComLineColor of hoMarkTime to (RGB(0,0,255))
			Set ComStatusEventBackColor of hoMarkTime to (RGB(0,0,255))
			Set ComTimeScaleLineColor of hoMarkTime to (RGB(0,0,255))
			Set ComTimeScaleLabel of hoMarkTime to "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
		Send Destroy to hoMarkTime
	Send Destroy to hoMarkTimes
	Send ComEndUpdate
End_Procedure
287:
How do I display a picture with transparency

// Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
Procedure OnComPictureClick String   llKey
	Forward Send OnComPictureClick llKey
	Showln llKey
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComShowSelectEvent to False
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/24/2012"
	Send Destroy to hoCalendar
	Variant voExPictures
	Get ComPictures to voExPictures
	Handle hoExPictures
	Get Create (RefClass(cComExPictures)) to hoExPictures
	Set pvComObject of hoExPictures to voExPictures
		Get ComAdd of hoExPictures "pic1" ("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" + ;
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" + ;
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAAChpAkgiAggqAsAEhigrAkgmASAygKB/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZAghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+Bkglh+h6i4hfh7hehygvgMB9hPhEh9gXh/AKgihUhBh/A1hwA1gwAdh8ASg4AEB+ADh8AAB+AFh8AThHBxg7B4BmhFBZABAABjgbgwh2gBg4A8grArB/3UgDgQBfgzhpBzhpgUhOYogKBlBZB+ARgAA+NxgDhZgWBcgKg9BfgjBRhogngj4zBCg6AfApAzBwB+OiBtA2AbA/hHqYg6ADBZBMBNgfgfAfBfByh4g8BUAiAkgyBMBAg4AcA+BsgyAZBGgRgFA/gbAIh/h6h2AMh/huheg9hbB6h6g6hJhA1zAc5RhhgN5TBLASB3gIXagQAMAGBdAghJhUAvhahohBAiBshzBzBTB4A9AzhTgDh9AOAZBjBfAPAOAeA2ZlBKAJB61xhBE+gmhKATiWhnBvhlhrAcgMghhGg2hBAQA4B85xBWBQBQXiBIAchohkhih/gN36hyBqhiDRgABQgoB0AJAKBvAbAkAxhlBzAVgVAVBJA2gbANg5gdAOAWBrh2gzAW6HBIiagwh9hRhiBTBGAVgAgNB3g5giB/grARBlA6B/gsBhhjaTB2A0AaBQhahah6hWBVBVBlAUB+hNAEh2BVAtkNhSgFBxAAOjBOg2gxBhBTgnAzB9ADABAAh/BohRgjgzBPhrhVgaAaAagihWArSxA0gGhzB3gBhgAdhVPTgOhgA8gShjAsgcgjhUhcBdg+zcBshsgsgtgvAvAPA5hdguBWBUs1LxBbh7gsBahLhzBtjjBpg9AABDgjA6hVBtB0hygt7IAhAz7Jg3AkgkhEtvh5hYhRBhAhBzB6g9AsgwA3hng0AFgNB6hHB7hRBrgxAcBaAGVWhYgehXgjhLgcBvBththxhd7egugB7gBThoAzh57igHA5A3BYgsW8gshMgiAgBZgQh0AKghA3hLsfAGAwAWB0ARgagNBXhWBWAEB+7yBTga7zhpB6" + ;
"BqBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+g6B8AsBoA+B6gGgGgxBTB6hVA2h2ACZYAxhSAAhIASB0gngQAphyg0hf3pAJgrAMBwg4BZAYgVAihihKgVhzgMBhg/h9AAAqBRh0BbgTsbgHhwAbhFATANhNBMhMhYgwhlhihRAThT6WBahYh6AzhZgLBAA7h6ALhJgLBZBnhzhthAhAhGB7h7htOfA0hzh4gxhJgBg6hThzBlg4hchyBFc/AsA0hIBihGEnB8BQgvAkgBggAhAmBvBrgngNBGhTgTAThWg1B5gsgAhABRBTgZB+AYAZBxBMBMhPBbJ9BohlhIB/Awh+g/gOAAAuBhhBhUB2gXBSgagKgXgXAXAtA5AXAdBvhCBJBKgrgqBEAHhjBjhO7dBthhBGh7B7BaAdgAzWgxBthXBTACAoAuAuAOBBBxgXgpF2AFhEhtgHgDACg1AfARAiVxAHA4Af9zhc0CB3BOAoATApBWhCp0gJA+hTA7gnAxhWgEhqgEgQB+BzBweFANBGBahVgZB6oehXBwBrAphiAkBCAhhbB0AEBLA3guBfg/AtArgvgXhVGUhfBPhwBlHFBYhcBlh0AxAYgb6phyA0A3g3hPgAAEA9ACgpgqBNAPAPAWBuB1B1BVBUgNBbgvBUhvgPhqgdheBoBxgUAFgiAsAPgN8VhvhxBWg4ANhRBSA+hNB8AwASAjh+B8B8AcAMhMg3A0DThhgxhRgGBahxhggBApBEWFBmhS+/BBBhhwgIB4BgAYAJhJgOA2BDARgAhmF6A4gGB8Bo/Jgrg/Bfh/hXBnA8gOAEAWgZAUAIH8ApAshmA8Bjgcg5/Ugehh/WB3gxhNhugiAaA7AcBFgcgRADhSBWAThPBzgyBPALgSAABHABBRhCA72hBpBpApA/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9iNBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69iWxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2HCUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+RYOEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgNACNAAEkRROEQrhCGAgkBA") to Nothing
	Send Destroy to hoExPictures
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComPictures of hoEvent to "pic1"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
286:
I need a border around each event/item on scheduler. Can you direct me to propery to use (to all)

// Notifies your application once the a new event is added.
Procedure OnComAddEvent Variant   llEv
	Forward Send OnComAddEvent llEv
	// Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectEventStyle to OLEexLinesSolid
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/10/2001"
	Send Destroy to hoCalendar
	Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
	Set ComStatusEventSize to 0
	Set ComDefaultEventPadding OLEexPaddingAll to 4
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
		Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 1:00:00 PM" to Nothing
		Get ComAdd of hoEvents "1/10/2001 12:30:00 PM" "1/10/2001 1:00:00 PM" to Nothing
	Send Destroy to hoEvents
End_Procedure
285:
I need a border around each event/item on scheduler. Can you direct me to propery to use (distinct)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectEventStyle to OLEexLinesSolid
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/10/2001"
	Send Destroy to hoCalendar
	Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
	Set ComStatusEventSize to 0
	Set ComDefaultEventPadding OLEexPaddingAll to 4
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComBodyBackgroundExt of hoEvent to "[frame=RGB(0,0,0),framethick]"
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 1:00:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComBodyBackgroundExt of hoEvent1 to "[frame=RGB(128,128,128),framethick]"
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "1/10/2001 12:30:00 PM" "1/10/2001 1:00:00 PM" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComBodyBackgroundExt of hoEvent2 to "[frame=RGB(0,0,0),framethick]"
		Send Destroy to hoEvent2
	Send Destroy to hoEvents
End_Procedure
284:
How can I change/specify the caption of the groups, when the user clicks the drop down button

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/24/2012"
	Send Destroy to hoCalendar
	Set ComDisplayGroupingButton to True
	Set ComShowGroupingEvents to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups 1 "Group A" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaption of hoGroup to "<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland"
			Set ComVisible of hoGroup to True
			Set ComEventBackColor of hoGroup to (RGB(128,128,128))
		Send Destroy to hoGroup
		Variant voGroup1
		Get ComAdd of hoGroups 2 "Group B" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComCaption of hoGroup1 to "<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia"
			Set ComVisible of hoGroup1 to True
			Set ComEventBackColor of hoGroup1 to (RGB(255,0,0))
		Send Destroy to hoGroup1
	Send Destroy to hoGroups
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComGroupID of hoEvent to 1
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComGroupID of hoEvent1 to 2
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComGroupID of hoEvent2 to 1
		Send Destroy to hoEvent2
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
283:
Is it possible to hide the group header, but still display the groups/captions

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "pic1" to ("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" + ;
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" + ;
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAACB5gkgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhhAEA/ABRgBIhQAFgTgQhFARAEgsgkhngmAMAdhJh6A3gdBUhXBHhzhaB5hFB1HEgNgasJAOB1Bq3OB3Aeh3vth3A9gSgkh/g5hJ01A/hthbB9hQB/gCB4DPgCA9BAAeBYAGh2AAhvgBAvhkBZBOBiB5gsB2gsACBwB8AFBWBegGA6AOLkgvgiBvAABIhvh/AnAvhUhShIBmgzBRhLAyg+gDABB3gBgOhAA6AmAuBDBvA7hTA0hfAagfgfhXhrB5A4gyACAHAHgHhdh+A/B/gTh8AcAvBlhgOnhfBngyAZK2A4BMAlgqBohVAJAUAKAFALgaAmgthBA7AlhigLh/ghBAA0LxBchch8g6A7g7hbh3B+heBBBgB3B3A3ARhtBLgsBfgXBXh5A/g+B/hqBzh5heh0BagohIgBg4B/ApAatAg6BdBBBWBrhMA8AbgGAhhlByg5AvB+gzhFhihxBxghAjgeBlgEByB5h8g5gMA8BQgtBRAGh6B7gjgTZzANArArgrh+hquoAlhSgpB5B6B6A6BYBb57g858hcghAHhbAvhWhMhKAkBeKBguh/hRgNAjAjgjh6h0BshZg7AWALBZhD6KvyAtgtg7husuhJhJh7gYAzAihRhohJBnBtBGgNg9h3A4hogfgcAcA8ApBmBPBnhZAEAwALBngwBtp5gYAZgZhJg9h6BpBSgxA1g1hVga6XgsA2A3g3wIA9AR6pA9ARBIgYBnhjhxgTBRBIB2h3B0gYhuBxhRAHhPgnhciZh1gCAzAEgGBWBdADgPgoA/gXgIAEAuAKBbA+hRBBhRBohSgUAygAgIghgTh+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQ" + ;
"BShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAkB6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChCgCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh277ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hhgygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAbBmgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAkhhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ=")
	Set ComHTMLPicture "pic2" to ("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" + ;
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" + ;
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADBngkgiAggqAsAEhiiig2AqUgBPA5hnB3Bshug3A9g7BbhthqALPBglN0gCgUoQh4AQAIgAgVgTAhBEAIBYACBIhEB4hggoASBiBKBsBJARRDhwBkgMABBrAQADA+AUAlAmhGBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/g/h5hvgzAMB9hPgNh7gnh6h1vtAIA9hVAggVggAbAoWrgAB1ABhGhBg/AAg+hng4huAAB9BjhbATiLhihNgQB2gegoBkgxrEgxAQAQBGgABpAdgJgfgfhpgRBWh8h+tWgmhpgXAABgAzuAYRAhAtAEhfBVhVBVA/BsLNAWAyBpAZhRgChhBwg4BUjtB/LiAehMgCAeBwg+B9hiY9g7BThpgkgXAlA0AMgAgCBBhghshRAUBbBBBthOhYBxgvh/BgANAOgbg3hvAuAvgvAvAXBjhFgkB1hBADgHgPAkATBJh0gWAbBcgzgZA75YBbhUhWBaBqBegxhjgHAEg9hcBMg8BQg6V8h1gegPBXhOBjA0gAgkX2AFhggphNBmBOB+ZSgDBxBdAdAdhihWgagahXBdg7h3gzB6B6h6BvBmhIgkAyA6uihKAGhAggBQAoAIBCBJgwAZBigZhTANhz5+A1hs5/g9A3g3hXhEAgBygXAuhdAyAshaA0AohiX/A1h0h8BThzheAFgLAWAcA9h/B+A8hOh/ApgxAABAh7gIgHB6g7BeBABghggghfBWhWgmgCAYADBrgYAJg9AAhehgB5hGBj6KBbAbA1g/21gEgQBMBs40AHgOAeB0AV6oAphxAyhiBHhghbhuoEB/AgA5gUgAAhBQhoBPhMBHgCgPBpBEAqgqAqBcBIg9guArArALAZgEABBMBqlEAzAohGQ8gAgjACgASQq7hNAvBvhoBwBhhfAmAQBfKYg7gEAgBBAFhQBuBFhcg7g0s6gSMxhhAageBgB4BEAHgjBKBJhOhmh2A7V4jtBGAuAogcA1hLAlAQKehwBFhdBxgshXgrgUgUAUAkBzhHBhAhhDgHA+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQ" + ;
"BSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hHAPgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+AFh0hMAXgvhfZVhqBrglglASBhAQhkAMBVARg9hUhdA9AVARBlhuBkgJgTgOAe8zBLBwhQgQhp7dhXhtBfTJBJBFBFhFhKhyhlhLhDgUAfBkARB0gyBhBpBrAKAAAwAGATAZhb9FBNhQgeFVgNBGhDgjhchnhzBmBMgJh0h1h1gZgngmgmhigHAAgFhZBthMAhhshygEgCAygFnlB7AoBIAjgbg0BRACgKAihchLgGAwAvguguhHBGBJgzDtB9BzAWgtgBBwAwgiBJhAgAAyhChTAQglg0AHgfASAXhNBTAkArtGhLAAApgtATBlhSA/gAAMASB/AMA9B9HUhPAyBzBzgrhWBIYwhVByBhgjhHB8ArBXgsgJgRAqhEABhrA4hxhDAygXBBBXheBRARAGAwgmBBgoBZBgBVh1hrAmgtAWALBO8sBkh5BnBPgPgkhLAEgqgBhjBihKAoB2goBgklgfBdBfgxgyhcBYhYg4hJBgAMg2hkhJAShwg1hrhXAsgog+A2VGBHhZA6htgbB/hOgdg7hBARhhhhgTBqB9BEAVgbgrh+hTBchsg/AHhCgUgBAlhehcA1AqhkBsA1iOBqPEgJhpBIATA+gfAvgWgnApA3gYASB725he22BXgJh3gCAggiAQhVBWBWBKAog/ByhBBhAhA61gAvggBmAiBVgRLNgYAPhvAqgth1gnhLAAhFmbhcguBugaBPgBAwAyAyBiBHAOB/gGgQAFBJgbgNB/hR/fB+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0hNgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc40G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQikDlE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC+iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQYIE0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHEDwRAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ0CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGgTBkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE=")
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/24/2012"
	Send Destroy to hoCalendar
	Set ComDisplayGroupingButton to True
	Set ComShowGroupingEvents to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups 1 "<c><b>Group</b><br><c><img>pic1</img>" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComVisible of hoGroup to True
			Set ComEventBackColor of hoGroup to (RGB(128,128,128))
		Send Destroy to hoGroup
		Variant voGroup1
		Get ComAdd of hoGroups 2 "<c><b>Group</b><br><c><img>pic2</img>" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComVisible of hoGroup1 to True
			Set ComEventBackColor of hoGroup1 to (RGB(255,0,0))
		Send Destroy to hoGroup1
	Send Destroy to hoGroups
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComGroupID of hoEvent to 1
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComGroupID of hoEvent1 to 2
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComGroupID of hoEvent2 to 1
		Send Destroy to hoEvent2
	Send Destroy to hoEvents
	Set ComHeaderGroupHeight to -1
	Send ComEndUpdate
End_Procedure
282:
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar, multiple-selection)
Procedure OnCreate
	Forward Send OnCreate
	Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "#1/1/2016#"
		Set ComSelection of hoCalendar to "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))"
	Send Destroy to hoCalendar
	Set ComBorderSelStyle to OLEexNoLines
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "1/10/2016 8:30:00 AM" "1/10/2016 2:30:00 PM" to Nothing
		Get ComAdd of hoEvents "1/11/2016 9:30:00 AM" "1/11/2016 11:30:00 AM" to Nothing
		Get ComAdd of hoEvents "1/15/2016 10:30:00 AM" "1/15/2016 11:30:00 AM" to Nothing
	Send Destroy to hoEvents
	Variant v
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Get ComSelection of hoCalendar1 to v
	Send Destroy to hoCalendar1
	Variant s
	Move v to s
	Variant voCalendar2
	Get ComCalendar to voCalendar2
	Handle hoCalendar2
	Get Create (RefClass(cComCalendar)) to hoCalendar2
	Set pvComObject of hoCalendar2 to voCalendar2
		Set ComSelection of hoCalendar2 to "0"
	Send Destroy to hoCalendar2
	Variant var_CopyTo
	Get ComCopyTo "c:/temp/test.png" to var_CopyTo
	Showln "Look for c:/temp/test.png file"
	Variant voCalendar3
	Get ComCalendar to voCalendar3
	Handle hoCalendar3
	Get Create (RefClass(cComCalendar)) to hoCalendar3
	Set pvComObject of hoCalendar3 to voCalendar3
		Set ComSelection of hoCalendar3 to s
	Send Destroy to hoCalendar3
End_Procedure
281:
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar)
Procedure OnCreate
	Forward Send OnCreate
	Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/1/2012"
		Set ComSelectDate of hoCalendar "1/1/2012" to False
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "1/1/2012 8:30:00 AM" "1/1/2012 9:30:00 AM" to Nothing
		Get ComAdd of hoEvents "1/1/2012 8:35:00 AM" "1/1/2012 9:35:00 AM" to Nothing
		Get ComAdd of hoEvents "1/1/2012 10:30:00 AM" "1/1/2012 12:30:00 PM" to Nothing
	Send Destroy to hoEvents
	Variant var_CopyTo
	Get ComCopyTo "c:/temp/test.png" to var_CopyTo
	Showln "Look for c:/temp/test.png file"
End_Procedure
280:
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, with calendar)
Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/1/2012"
		Set ComSelectDate of hoCalendar "1/1/2012" to False
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "1/1/2012 8:30:00 AM" "1/1/2012 9:30:00 AM" to Nothing
		Get ComAdd of hoEvents "1/1/2012 8:35:00 AM" "1/1/2012 9:35:00 AM" to Nothing
		Get ComAdd of hoEvents "1/1/2012 10:30:00 AM" "1/1/2012 12:30:00 PM" to Nothing
	Send Destroy to hoEvents
	Variant var_CopyTo
	Get ComCopyTo "c:/temp/test.png" to var_CopyTo
	Showln "Look for c:/temp/test.png file"
End_Procedure
279:
I've seen that all-day header can be limited up to 4, 8 or 12 events. Can I change that limit, for instance, 3 events only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowAllDayHeader to True
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/21/2012"
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComSelection of hoCalendar1 to "value >= #5/20/2012# and value <= #5/26/2012#"
	Send Destroy to hoCalendar1
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComAllowAllDayEventScroll to (|CI$23 + OLEexAllDayEventWheelScroll + OLEexAllDayEventNoMax)
	Set ComBodyEventBackColor to (RGB(128,128,128))
	Set ComBackground OLEexScheduleAllDayEventScrollBackColor to (RGB(220,220,220))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComAllDayEvent of hoEvent to True
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComAllDayEvent of hoEvent1 to True
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComAllDayEvent of hoEvent3 to True
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComAllDayEvent of hoEvent4 to True
		Send Destroy to hoEvent4
		Variant voEvent5
		Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
		Handle hoEvent5
		Get Create (RefClass(cComEvent)) to hoEvent5
		Set pvComObject of hoEvent5 to voEvent5
			Set ComAllDayEvent of hoEvent5 to True
		Send Destroy to hoEvent5
		Variant voEvent6
		Get ComAdd of hoEvents "5/24/2012" "5/25/2012" to voEvent6
		Handle hoEvent6
		Get Create (RefClass(cComEvent)) to hoEvent6
		Set pvComObject of hoEvent6 to voEvent6
			Set ComAllDayEvent of hoEvent6 to True
		Send Destroy to hoEvent6
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
278:
Is it possible to highlight the newly created event ( runtime creation )
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
End_Procedure
277:
Is it possible to select the newly created event ( runtime creation )
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowSelectCreateEvent to OLEexSelectCreateEvent
End_Procedure
276:
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHfj2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA==" to Nothing
	Send Destroy to hoAppearance
	Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowAllDayHeader to True
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/21/2012"
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	Send Destroy to hoCalendar1
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
	Set ComBackground OLEexScheduleAllDayEventScrollBackColor to |CI$1000000
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComAllDayEvent of hoEvent to True
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComAllDayEvent of hoEvent1 to True
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComAllDayEvent of hoEvent3 to True
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComAllDayEvent of hoEvent4 to True
		Send Destroy to hoEvent4
		Variant voEvent5
		Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
		Handle hoEvent5
		Get Create (RefClass(cComEvent)) to hoEvent5
		Set pvComObject of hoEvent5 to voEvent5
			Set ComAllDayEvent of hoEvent5 to True
		Send Destroy to hoEvent5
		Variant voEvent6
		Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
		Handle hoEvent6
		Get Create (RefClass(cComEvent)) to hoEvent6
		Set pvComObject of hoEvent6 to voEvent6
			Set ComAllDayEvent of hoEvent6 to True
		Send Destroy to hoEvent6
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
275:
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (solid)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowAllDayHeader to True
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/21/2012"
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	Send Destroy to hoCalendar1
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
	Set ComBackground OLEexScheduleAllDayEventScrollBackColor to (RGB(220,220,220))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComAllDayEvent of hoEvent to True
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComAllDayEvent of hoEvent1 to True
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComAllDayEvent of hoEvent3 to True
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComAllDayEvent of hoEvent4 to True
		Send Destroy to hoEvent4
		Variant voEvent5
		Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
		Handle hoEvent5
		Get Create (RefClass(cComEvent)) to hoEvent5
		Set pvComObject of hoEvent5 to voEvent5
			Set ComAllDayEvent of hoEvent5 to True
		Send Destroy to hoEvent5
		Variant voEvent6
		Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
		Handle hoEvent6
		Get Create (RefClass(cComEvent)) to hoEvent6
		Set pvComObject of hoEvent6 to voEvent6
			Set ComAllDayEvent of hoEvent6 to True
		Send Destroy to hoEvent6
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
274:
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to remove that

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowAllDayHeader to True
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/21/2012"
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	Send Destroy to hoCalendar1
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
	Set ComBackground OLEexScheduleAllDayEventScrollBackColor to (RGB(0,0,0))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComAllDayEvent of hoEvent to True
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComAllDayEvent of hoEvent1 to True
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComAllDayEvent of hoEvent3 to True
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComAllDayEvent of hoEvent4 to True
		Send Destroy to hoEvent4
		Variant voEvent5
		Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
		Handle hoEvent5
		Get Create (RefClass(cComEvent)) to hoEvent5
		Set pvComObject of hoEvent5 to voEvent5
			Set ComAllDayEvent of hoEvent5 to True
		Send Destroy to hoEvent5
		Variant voEvent6
		Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
		Handle hoEvent6
		Get Create (RefClass(cComEvent)) to hoEvent6
		Set pvComObject of hoEvent6 to voEvent6
			Set ComAllDayEvent of hoEvent6 to True
		Send Destroy to hoEvent6
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
273:
The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowAllDayHeader to True
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/21/2012"
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	Send Destroy to hoCalendar1
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComAllowAllDayEventScroll to (OLEexAllDayEventScroll + OLEexAllDayEventMax4)
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComAllDayEvent of hoEvent to True
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComAllDayEvent of hoEvent1 to True
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComAllDayEvent of hoEvent3 to True
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComAllDayEvent of hoEvent4 to True
		Send Destroy to hoEvent4
		Variant voEvent5
		Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
		Handle hoEvent5
		Get Create (RefClass(cComEvent)) to hoEvent5
		Set pvComObject of hoEvent5 to voEvent5
			Set ComAllDayEvent of hoEvent5 to True
		Send Destroy to hoEvent5
		Variant voEvent6
		Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
		Handle hoEvent6
		Get Create (RefClass(cComEvent)) to hoEvent6
		Set pvComObject of hoEvent6 to voEvent6
			Set ComAllDayEvent of hoEvent6 to True
		Send Destroy to hoEvent6
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
272:
Is it possible to specify the number of all-day events to be visible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowAllDayHeader to True
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/21/2012"
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	Send Destroy to hoCalendar1
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComAllDayEvent of hoEvent to True
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComAllDayEvent of hoEvent1 to True
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComAllDayEvent of hoEvent3 to True
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComAllDayEvent of hoEvent4 to True
		Send Destroy to hoEvent4
		Variant voEvent5
		Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
		Handle hoEvent5
		Get Create (RefClass(cComEvent)) to hoEvent5
		Set pvComObject of hoEvent5 to voEvent5
			Set ComAllDayEvent of hoEvent5 to True
		Send Destroy to hoEvent5
		Variant voEvent6
		Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
		Handle hoEvent6
		Get Create (RefClass(cComEvent)) to hoEvent6
		Set pvComObject of hoEvent6 to voEvent6
			Set ComAllDayEvent of hoEvent6 to True
		Send Destroy to hoEvent6
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
271:
How do I disable scrolling the all-day header
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowAllDayHeader to True
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/21/2012"
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	Send Destroy to hoCalendar1
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComAllowAllDayEventScroll to OLEexAllDayEventNoMin
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComAllDayEvent of hoEvent to True
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComAllDayEvent of hoEvent1 to True
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComAllDayEvent of hoEvent2 to True
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComAllDayEvent of hoEvent3 to True
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComAllDayEvent of hoEvent4 to True
		Send Destroy to hoEvent4
		Variant voEvent5
		Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
		Handle hoEvent5
		Get Create (RefClass(cComEvent)) to hoEvent5
		Set pvComObject of hoEvent5 to voEvent5
			Set ComAllDayEvent of hoEvent5 to True
		Send Destroy to hoEvent5
		Variant voEvent6
		Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
		Handle hoEvent6
		Get Create (RefClass(cComEvent)) to hoEvent6
		Set pvComObject of hoEvent6 to voEvent6
			Set ComAllDayEvent of hoEvent6 to True
		Send Destroy to hoEvent6
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
270:
How can I display the current week only, when the user selects the date in the calendar panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComOnResizeControl to (OLEexDisableSplitter + OLEexResizePanelRight)
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComOnSelectDate of hoCalendar to OLEexEnsureVisibleDate
		Set ComSelection of hoCalendar to "1/10/2001"
		Set ComSingleSel of hoCalendar to True
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComFirstWeekDay of hoCalendar1 to OLEexMonday
	Send Destroy to hoCalendar1
	Set ComScrollBars to OLEexNoScroll
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComAllowResizeSchedule to OLEexDisallow
	Set ComAllowMoveSchedule to OLEexDisallow
	Set ComAllowToggleSchedule to OLEexDisallow
	Set ComBackground OLEexScheduleBorderMonthColor to (ComBackground(Self,OLEexScheduleBorderDateColor))
	Variant voTimeScales
	Get ComTimeScales to voTimeScales
	Handle hoTimeScales
	Get Create (RefClass(cComTimeScales)) to hoTimeScales
	Set pvComObject of hoTimeScales to voTimeScales
		Variant voTimeScale
		Get ComItem of hoTimeScales 0 to voTimeScale
		Handle hoTimeScale
		Get Create (RefClass(cComTimeScale)) to hoTimeScale
		Set pvComObject of hoTimeScale to voTimeScale
			Set ComAllowResize of hoTimeScale to False
		Send Destroy to hoTimeScale
	Send Destroy to hoTimeScales
	Set ComDayViewWidth to 0
	Send ComEndUpdate
End_Procedure
269:
How do I capture the control and save it as PDF (Method 2)
Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/1/2001"
		Set ComSelection of hoCalendar to "value in (#6/11/2001#,#6/12/2001#)"
	Send Destroy to hoCalendar
	Set ComDayViewWidth to 512
	Set ComDayViewHeight to 512
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "6/11/2001 10:00:00 AM" "6/11/2001 1:00:00 PM" to Nothing
		Get ComAdd of hoEvents "6/12/2001 10:00:00 AM" "6/12/2001 1:00:00 PM" to Nothing
	Send Destroy to hoEvents
	Variant var_CopyTo
	Get ComCopyTo "C:/Temp/test.pdf" to var_CopyTo
	Showln "Look For: C:/Temp/test.pdf file"
End_Procedure
268:
How do I capture the control and save it as PDF (Method 1)
Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/1/2001"
		Set ComSelection of hoCalendar to "value in (#6/11/2001#,#6/12/2001#)"
	Send Destroy to hoCalendar
	Set ComDayViewWidth to 512
	Set ComDayViewHeight to 512
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "6/11/2001 10:00:00 AM" "6/11/2001 1:00:00 PM" to Nothing
		Get ComAdd of hoEvents "6/12/2001 10:00:00 AM" "6/12/2001 1:00:00 PM" to Nothing
	Send Destroy to hoEvents
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "FitToPage=On"
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Get ComCopyTo of hoPrint "C:/Temp/test.pdf" to Nothing
		Showln "Look For: C:/Temp/test.pdf file"
	Send Destroy to hoPrint
End_Procedure
267:
How do I capture the control and save it as an image (JPG or BMP) (Method 2)
Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/1/2001"
		Set ComSelection of hoCalendar to "value in (#6/11/2001#,#6/12/2001#)"
	Send Destroy to hoCalendar
	Set ComDayViewWidth to 512
	Set ComDayViewHeight to 512
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "6/11/2001 10:00:00 AM" "6/11/2001 1:00:00 PM" to Nothing
		Get ComAdd of hoEvents "6/12/2001 10:00:00 AM" "6/12/2001 1:00:00 PM" to Nothing
	Send Destroy to hoEvents
	Variant var_CopyTo
	Get ComCopyTo "C:/Temp/test.bmp" to var_CopyTo
	Variant var_CopyTo1
	Get ComCopyTo "C:/Temp/test.jpg" to var_CopyTo1
	Showln "Look For: C:/Temp/test.* file"
End_Procedure
266:
How do I capture the control and save it as an image (JPG or BMP) (Method 1)
Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/1/2001"
		Set ComSelection of hoCalendar to "value in (#6/11/2001#,#6/12/2001#)"
	Send Destroy to hoCalendar
	Set ComDayViewWidth to 512
	Set ComDayViewHeight to 512
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "6/11/2001 10:00:00 AM" "6/11/2001 1:00:00 PM" to Nothing
		Get ComAdd of hoEvents "6/12/2001 10:00:00 AM" "6/12/2001 1:00:00 PM" to Nothing
	Send Destroy to hoEvents
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "FitToPage=On"
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Get ComCopyTo of hoPrint "C:/Temp/test.bmp" to Nothing
		Get ComCopyTo of hoPrint "C:/Temp/test.jpg" to Nothing
		Showln "Look For: C:/Temp/test.* file"
	Send Destroy to hoPrint
End_Procedure
265:
Recurrence: The 2nd to last weekday of the month

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/29/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/29/1997 9:00:00 AM" "9/29/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
264:
Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/4/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/4/1997 9:00:00 AM" "9/4/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
263:
Recurrence: The last work day of the month

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/30/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "8/5/1997 9:00:00 AM" "8/5/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
262:
Recurrence: An example where the days generated makes a difference because of WKST (Sample 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "8/5/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexSunday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "8/5/1997 9:00:00 AM" "8/5/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
261:
Recurrence: An example where the days generated makes a difference because of WKST (Sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "8/5/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "8/5/1997 9:00:00 AM" "8/5/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
260:
Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "11/5/1996"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "11/5/1996 9:00:00 AM" "11/5/1996 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
259:
Recurrence: The first Saturday that follows the first Sunday of the month, forever

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/13/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/13/1997 9:00:00 AM" "9/13/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
258:
Recurrence: Every Friday the 13th, forever

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "2/13/1998"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
257:
Recurrence: Every Thursday, but only during June, July, and August, forever

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/5/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "6/5/1997 9:00:00 AM" "6/5/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
256:
Recurrence: Every Thursday in March, forever

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "3/13/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "3/13/1997 9:00:00 AM" "3/13/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYMONTH=3;BYDAY=TH"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
255:
Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/12/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/12/1997 9:00:00 AM" "5/12/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
254:
Recurrence: Every 20th Monday of the year, forever

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/19/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "1/1/1997 9:00:00 AM" "1/1/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYDAY=20MO"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
253:
Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/1/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "1/1/1997 9:00:00 AM" "1/1/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
252:
Recurrence: Every other year on January, February, and March for 10 occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "3/10/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "3/10/1997 9:00:00 AM" "3/10/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
251:
Recurrence: Yearly in June and July for 10 occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/10/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthX of hoCalendar to 2
		Set ComMaxMonthY of hoCalendar to 2
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "6/10/1997 9:00:00 AM" "6/10/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=YEARLY;COUNT=10;BYMONTH=6,7"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
250:
Recurrence: Every Tuesday, every other month

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/2/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
249:
Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/10/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/10/1997 9:00:00 AM" "9/10/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
248:
Recurrence: Monthly on the first and last day of the month for 10 occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/30/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/3/1997 9:00:00 AM" "9/3/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
247:
Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/2/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
246:
Recurrence: Monthly on the third to the last day of the month, forever

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/28/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/28/1997 9:00:00 AM" "9/28/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYMONTHDAY=-3"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
245:
Recurrence: Monthly on the second to last Monday of the month for 6 months

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/22/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/22/1997 9:00:00 AM" "9/22/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
244:
Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/7/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/7/1997 9:00:00 AM" "9/7/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
243:
Recurrence: Monthly on the 1st Friday until December 24, 1997

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/5/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/5/1997 9:00:00 AM" "9/5/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
242:
Recurrence: Monthly on the 1st Friday for ten occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/5/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/5/1997 9:00:00 AM" "9/5/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=10;BYDAY=1FR"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
241:
Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/16/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexSunday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
240:
Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/17/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexSunday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
239:
Recurrence: Weekly on Tuesday and Thursday for 5 weeks

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/16/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexSunday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
238:
Recurrence: Weekly on Tuesday and Thursday for 5 weeks

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/16/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexSunday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
237:
Recurrence: Every other day - forever

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/4/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=DAILY;INTERVAL=2"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
236:
Recurrence: Daily until December 24, 1997

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/17/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=DAILY;UNTIL=19971224T000000Z"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
235:
Recurrence: Daily for 10 occurrences

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "9/9/1997"
		Set ComShowNonMonthDays of hoCalendar to False
		Set ComMaxMonthY of hoCalendar to 4
		Variant voHighlight
		Get ComHighlightEvent of hoCalendar to voHighlight
		Handle hoHighlight
		Get Create (RefClass(cComHighlight)) to hoHighlight
		Set pvComObject of hoHighlight to voHighlight
			Variant voPattern
			Get ComPattern of hoHighlight to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternFrame
			Send Destroy to hoPattern
			Set ComBold of hoHighlight to False
		Send Destroy to hoHighlight
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
	Send Destroy to hoCalendar
	Set ComShowViewCompact to OLEexViewCalendarCompact
	Set ComBorderSelStyle to OLEexNoLines
	Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComRepetitive of hoEvent to "FREQ=DAILY;COUNT=10"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
234:
How do I display the week number according, so the January 1st is in the first week

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/1/2016"
		Set ComFirstWeekDay of hoCalendar to OLEexSunday
		Set ComDisplayWeekNumberAs of hoCalendar to OLEexSimpleWeekNumber
	Send Destroy to hoCalendar
	Send ComEndUpdate
End_Procedure
233:
How do I display the week number according to ISO8601 standard

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/4/2016"
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Set ComDisplayWeekNumberAs of hoCalendar to OLEexISO8601WeekNumber
	Send Destroy to hoCalendar
	Send ComEndUpdate
End_Procedure
232:
How do I hide the week number

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Set ComShowWeeks of hoCalendar to False
		Set ComShowNonMonthDays of hoCalendar to False
	Send Destroy to hoCalendar
	Send ComEndUpdate
End_Procedure
231:
How can I change the background color of the all day header

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComOnResizeControl to OLEexCalendarAutoHide
	Set ComShowAllDayHeader to True
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComFirstWeekDay of hoCalendar to OLEexMonday
		Set ComSelectDate of hoCalendar "5/8/2012" to True
		Send ComSelect of hoCalendar OLEexSelectWeek
		Set ComSelectDate of hoCalendar "5/15/2012" to False
		Send ComSelect of hoCalendar (OLEexSelectToggle + OLEexSelectWeek)
	Send Destroy to hoCalendar
	Set ComBackground OLEexScheduleAllDayHeaderBackColor to (RGB(240,240,240))
	Set ComHeaderAllDayEventHeight to -20
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/8/2012" "5/17/2012" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComAllDayEvent of hoEvent to True
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
230:
How can I display a single text on a specified date

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/26/2012"
	Send Destroy to hoCalendar
	Variant voCalendar1
	Get ComCalendar to voCalendar1
	Handle hoCalendar1
	Get Create (RefClass(cComCalendar)) to hoCalendar1
	Set pvComObject of hoCalendar1 to voCalendar1
		Set ComSelection of hoCalendar1 to "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)"
	Send Destroy to hoCalendar1
	Variant voNonworkingPatterns
	Get ComNonworkingPatterns to voNonworkingPatterns
	Handle hoNonworkingPatterns
	Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns
	Set pvComObject of hoNonworkingPatterns to voNonworkingPatterns
		Variant voNonworkingPattern
		Get ComAdd of hoNonworkingPatterns 1234 OLEexPatternEmpty to voNonworkingPattern
		Handle hoNonworkingPattern
		Get Create (RefClass(cComNonworkingPattern)) to hoNonworkingPattern
		Set pvComObject of hoNonworkingPattern to voNonworkingPattern
			Set ComBackgroundExt of hoNonworkingPattern to "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]"
		Send Destroy to hoNonworkingPattern
	Send Destroy to hoNonworkingPatterns
	Variant voNonworkingTimes
	Get ComNonworkingTimes to voNonworkingTimes
	Handle hoNonworkingTimes
	Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes
	Set pvComObject of hoNonworkingTimes to voNonworkingTimes
		Get ComAdd of hoNonworkingTimes "value = #05/25/2012#" "09:00" "10:00" 1234 to Nothing
	Send Destroy to hoNonworkingTimes
	Send ComEndUpdate
End_Procedure
229:
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)

Procedure OnCreate
	Forward Send OnCreate
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Events" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "11/11/2013"
	Send Destroy to hoCalendar
	Set ComDataField OLEexEventStartDateTime to "Start"
	Set ComDataField OLEexEventEndDateTime to "End"
	Set ComDataField OLEexEventExtraLabel to "Extra"
	Set ComDataSource to rs
	Variant v
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComItem of hoEvents 1 to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Get ComKnownProperty of hoEvent OLEexEventID to v
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Showln v
	Send ComEndUpdate
End_Procedure
228:
Is it possible to display some text/image on the schedule's view background

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/25/2012"
	Send Destroy to hoCalendar
	Variant voNonworkingPatterns
	Get ComNonworkingPatterns to voNonworkingPatterns
	Handle hoNonworkingPatterns
	Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns
	Set pvComObject of hoNonworkingPatterns to voNonworkingPatterns
		Variant voNonworkingPattern
		Get ComAdd of hoNonworkingPatterns 1234 OLEexPatternBDiagonal to voNonworkingPattern
		Handle hoNonworkingPattern
		Get Create (RefClass(cComNonworkingPattern)) to hoNonworkingPattern
		Set pvComObject of hoNonworkingPattern to voNonworkingPattern
			Set ComBackgroundExt of hoNonworkingPattern to "[text=`<fgcolor 808080>just a caption`,align=0x11]"
		Send Destroy to hoNonworkingPattern
	Send Destroy to hoNonworkingPatterns
	Variant voNonworkingPatterns1
	Get ComNonworkingPatterns to voNonworkingPatterns1
	Handle hoNonworkingPatterns1
	Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns1
	Set pvComObject of hoNonworkingPatterns1 to voNonworkingPatterns1
		Variant voNonworkingPattern1
		Get ComAdd of hoNonworkingPatterns1 1235 OLEexPatternEmpty to voNonworkingPattern1
		Handle hoNonworkingPattern1
		Get Create (RefClass(cComNonworkingPattern)) to hoNonworkingPattern1
		Set pvComObject of hoNonworkingPattern1 to voNonworkingPattern1
			Set ComBackgroundExt of hoNonworkingPattern1 to "[text=`<fgcolor 808080>just another caption`,align=0x11]"
		Send Destroy to hoNonworkingPattern1
	Send Destroy to hoNonworkingPatterns1
	Variant voNonworkingTimes
	Get ComNonworkingTimes to voNonworkingTimes
	Handle hoNonworkingTimes
	Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes
	Set pvComObject of hoNonworkingTimes to voNonworkingTimes
		Get ComAdd of hoNonworkingTimes "weekday(value) = 5" "08:00" "08:59:59" 1234 to Nothing
	Send Destroy to hoNonworkingTimes
	Variant voNonworkingTimes1
	Get ComNonworkingTimes to voNonworkingTimes1
	Handle hoNonworkingTimes1
	Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes1
	Set pvComObject of hoNonworkingTimes1 to voNonworkingTimes1
		Get ComAdd of hoNonworkingTimes1 "weekday(value) = 5" "09:00" "09:59:59" 1235 to Nothing
	Send Destroy to hoNonworkingTimes1
	Variant voNonworkingTimes2
	Get ComNonworkingTimes to voNonworkingTimes2
	Handle hoNonworkingTimes2
	Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes2
	Set pvComObject of hoNonworkingTimes2 to voNonworkingTimes2
		Get ComAdd of hoNonworkingTimes2 "weekday(value) = 5" "10:00" "10:59:59" 1234 to Nothing
	Send Destroy to hoNonworkingTimes2
	Send ComEndUpdate
End_Procedure
227:
How can I display a text on the schedule's view background

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/25/2012"
	Send Destroy to hoCalendar
	Variant voNonworkingPatterns
	Get ComNonworkingPatterns to voNonworkingPatterns
	Handle hoNonworkingPatterns
	Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns
	Set pvComObject of hoNonworkingPatterns to voNonworkingPatterns
		Variant voNonworkingPattern
		Get ComAdd of hoNonworkingPatterns 1234 OLEexPatternEmpty to voNonworkingPattern
		Handle hoNonworkingPattern
		Get Create (RefClass(cComNonworkingPattern)) to hoNonworkingPattern
		Set pvComObject of hoNonworkingPattern to voNonworkingPattern
			Set ComBackgroundExt of hoNonworkingPattern to "[text=`<fgcolor 808080>just a caption`,align=0x11]"
		Send Destroy to hoNonworkingPattern
	Send Destroy to hoNonworkingPatterns
	Variant voNonworkingTimes
	Get ComNonworkingTimes to voNonworkingTimes
	Handle hoNonworkingTimes
	Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes
	Set pvComObject of hoNonworkingTimes to voNonworkingTimes
		Get ComAdd of hoNonworkingTimes "weekday(value) = 5" "12:00" "13:00" 1234 to Nothing
	Send Destroy to hoNonworkingTimes
	Send ComEndUpdate
End_Procedure
226:
Is it possible to change the visual appearance of the edit's context menu

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexContextMenuAppearance to |CI$1000000
End_Procedure
225:
How do I customize the edit's context menu

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComEditContextMenuItems to "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
End_Procedure
224:
How can I lock/fix the date header, so it stays on the top while the user scrolls the chart

// Notifies your application once the control's layout has been changed.
Procedure OnComLayoutEndChanging OLELayoutChangingEnum   llOperation
	Forward Send OnComLayoutEndChanging llOperation
	Showln llOperation
	Set ComDayViewHeight to 2016
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelectDate of hoCalendar "5/20/2012" to True
		Send ComSelect of hoCalendar OLEexSelectWeek
	Send Destroy to hoCalendar
	Set ComScrollBars to OLEexVertical
	Set ComShowViewCompact to OLEexViewSingleRowLockHeader
	Set ComDayViewHeight to 2016
	Set ComAllowMoveSchedule to OLEexDisallow
	Set ComAllowResizeSchedule to OLEexDisallow
	Set ComAllowToggleSchedule to OLEexDisallow
	Set ComAllowExchangePanels to OLEexDisallow
	Set ComAllowMoveTimeScale to OLEexDisallow
	Set ComAllowResizeTimeScale to OLEexDisallow
	Set ComAllowMultiDaysEvent to False
	Variant voTimeScales
	Get ComTimeScales to voTimeScales
	Handle hoTimeScales
	Get Create (RefClass(cComTimeScales)) to hoTimeScales
	Set pvComObject of hoTimeScales to voTimeScales
		Variant voTimeScale
		Get ComItem of hoTimeScales 0 to voTimeScale
		Handle hoTimeScale
		Get Create (RefClass(cComTimeScale)) to hoTimeScale
		Set pvComObject of hoTimeScale to voTimeScale
			Set ComMinorTimeRuler of hoTimeScale to "00:10"
		Send Destroy to hoTimeScale
	Send Destroy to hoTimeScales
	Set ComDayStartTime to "00:00"
	Set ComDayEndTime to "24:00"
	Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
	Send ComEndUpdate
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelectDate of hoCalendar "5/20/2012" to True
		Send ComSelect of hoCalendar OLEexSelectWeek
	Send Destroy to hoCalendar
	Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
	Set ComScrollBars to OLEexVertical
	Set ComShowViewCompact to OLEexViewSingleRow
	Set ComDayViewHeight to 2016
	Set ComAllowMoveSchedule to OLEexDisallow
	Set ComAllowResizeSchedule to OLEexDisallow
	Set ComAllowToggleSchedule to OLEexDisallow
	Set ComAllowExchangePanels to OLEexDisallow
	Set ComAllowMoveTimeScale to OLEexDisallow
	Set ComAllowResizeTimeScale to OLEexDisallow
	Set ComAllowMultiDaysEvent to False
	Set ComBackground OLEexScheduleBorderSelColor to (ComBackground(Self,OLEexScheduleBorderSelColorUnFocus))
	Variant voTimeScales
	Get ComTimeScales to voTimeScales
	Handle hoTimeScales
	Get Create (RefClass(cComTimeScales)) to hoTimeScales
	Set pvComObject of hoTimeScales to voTimeScales
		Variant voTimeScale
		Get ComItem of hoTimeScales 0 to voTimeScale
		Handle hoTimeScale
		Get Create (RefClass(cComTimeScale)) to hoTimeScale
		Set pvComObject of hoTimeScale to voTimeScale
			Set ComMinorTimeRuler of hoTimeScale to "00:10"
		Send Destroy to hoTimeScale
	Send Destroy to hoTimeScales
	Set ComDayStartTime to "00:00"
	Set ComDayEndTime to "24:00"
	Send ComEndUpdate
End_Procedure
222:
How can I show a single week, no calendar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelectDate of hoCalendar "5/20/2012" to True
		Send ComSelect of hoCalendar OLEexSelectWeek
	Send Destroy to hoCalendar
	Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
	Set ComScrollBars to OLEexNoScroll
	Set ComShowViewCompact to OLEexViewSingleRow
	Set ComAllowMoveSchedule to OLEexDisallow
	Set ComAllowResizeSchedule to OLEexDisallow
	Set ComAllowToggleSchedule to OLEexDisallow
	Set ComAllowExchangePanels to OLEexDisallow
	Set ComAllowMoveTimeScale to OLEexDisallow
	Set ComAllowResizeTimeScale to OLEexDisallow
	Set ComAllowMultiDaysEvent to False
	Set ComBackground OLEexScheduleBorderSelColor to (ComBackground(Self,OLEexScheduleBorderSelColorUnFocus))
	Send ComEndUpdate
End_Procedure
221:
How do I select the dates within a giving interval only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/1/2012"
		Set ComSelection of hoCalendar to "(value >= #5/13/2012#) and (value <= #5/26/2012#)"
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "5/24/2012 9:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
		Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:45:00 PM" to Nothing
		Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 2:30:00 PM" to Nothing
		Get ComAdd of hoEvents "5/24/2012 12:45:00 PM" "5/24/2012 3:45:00 PM" to Nothing
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
220:
How do I display the dates within a giving interval only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/24/2012"
		Set ComMinDate of hoCalendar to "5/13/2012"
		Set ComMaxDate of hoCalendar to "5/26/2012"
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "5/24/2012 9:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
		Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:45:00 PM" to Nothing
		Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 2:30:00 PM" to Nothing
		Get ComAdd of hoEvents "5/24/2012 12:45:00 PM" "5/24/2012 3:45:00 PM" to Nothing
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Set ComDayStartTime to "00:00"
	Set ComDayEndTime to "24:00"
	Variant voTimeScales
	Get ComTimeScales to voTimeScales
	Handle hoTimeScales
	Get Create (RefClass(cComTimeScales)) to hoTimeScales
	Set pvComObject of hoTimeScales to voTimeScales
		Variant voTimeScale
		Get ComItem of hoTimeScales 0 to voTimeScale
		Handle hoTimeScale
		Get Create (RefClass(cComTimeScale)) to hoTimeScale
		Set pvComObject of hoTimeScale to voTimeScale
			Set ComMajorTimeLabel of hoTimeScale to "<%hh%>:<%nn%>"
			Set ComWidth of hoTimeScale to 32
		Send Destroy to hoTimeScale
	Send Destroy to hoTimeScales
End_Procedure
218:
How do I show a double frame

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectEventStyle to OLEexLinesSolid
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/10/2001"
	Send Destroy to hoCalendar
	Set ComDefaultEventLongLabel to ""
	Set ComDefaultEventShortLabel to ""
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "1/10/2001 8:00:00 AM" "1/10/2001 10:00:00 AM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComBodyBackgroundExt of hoEvent to "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 ComBodyBackgroundExtValue of hoEvent OLEexIndexExt1 OLEexBackColorExt to 255
			Set ComBodyBackgroundExtValue of hoEvent OLEexIndexExt1 OLEexClientExt to "35%"
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 12:00:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComBodyBackgroundExt of hoEvent1 to "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]"
			Set ComBodyBackgroundExtValue of hoEvent1 OLEexIndexExt1 OLEexClientExt to "35%"
			Set ComBodyBackgroundExtValue of hoEvent1 OLEexIndexExt2 OLEexBackColorExt to 65535
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "1/10/2001 12:00:00 PM" "1/10/2001 2:00:00 PM" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComShowStatus of hoEvent2 to False
			Set ComBodyBackgroundExt of hoEvent2 to "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)]"
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "1/10/2001 2:00:00 PM" "1/10/2001 4:00:00 PM" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComShowStatus of hoEvent3 to False
			Set ComBodyBackgroundExt of hoEvent3 to "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,frame=RGB(0,0,0)]"
		Send Destroy to hoEvent3
	Send Destroy to hoEvents
End_Procedure
217:
How can I add more colors on the event

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectEventStyle to OLEexLinesSolid
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/10/2001"
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComBodyBackgroundExt of hoEvent to "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 1:00:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComBodyBackgroundExt of hoEvent1 to "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "1/10/2001 11:00:00 AM" "1/10/2001 2:00:00 PM" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComBodyBackgroundExt of hoEvent2 to "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)],client[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)])"
		Send Destroy to hoEvent2
	Send Destroy to hoEvents
End_Procedure
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
Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComAlignDate of hoCalendar to False
		Set ComMinMonthY of hoCalendar to 2
		Set ComMaxMonthY of hoCalendar to 2
	Send Destroy to hoCalendar
End_Procedure
215:
How can I bound the control to a data source

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Events" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "11/11/2013"
	Send Destroy to hoCalendar
	Set ComDataField OLEexEventStartDateTime to "Start"
	Set ComDataField OLEexEventEndDateTime to "End"
	Set ComDataField OLEexEventExtraLabel to "Extra"
	Set ComDataSource to rs
	Send ComEndUpdate
End_Procedure
214:
How can I start drag and drop an event

// Occurs when the OLEDrag method is called.
Procedure OnComOLEStartDrag Variant   llData Integer   llAllowedEffects
	Forward Send OnComOLEStartDrag llData llAllowedEffects
	// Data.SetData( "your data to be dragged" )
	Move 1 to AllowedEffects
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComOLEDropMode to OLEexOLEDropManual
	Set ComSelectEventStyle to OLEexLinesSolid
	Set ComDefaultEventLongLabel to "<%=%256%><br><%=%5%>"
	Set ComDefaultEventShortLabel to (ComDefaultEventLongLabel(Self))
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/10/2001"
	Send Destroy to hoCalendar
	Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComExtraLabel of hoEvent to "Click the event and wait to start dragging."
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowHighlightDate to (OLEexHighlightDateCalendarEllipticClip + OLEexHighlightDateCalendarGradient + OLEexShowHighlightDateCalendar)
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/1/2001"
	Send Destroy to hoCalendar
	Set ComHighlightDate "1/9/2001" to 65280
	Set ComHighlightDate "1/17/2001" to "65280,255"
	Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
212:
How can I arrange the colors to highlight the date vertically

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowHighlightDate to (OLEexHighlightDateVertical + OLEexShowHighlightDateCalendar)
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/1/2001"
	Send Destroy to hoCalendar
	Set ComHighlightDate "1/9/2001" to 65280
	Set ComHighlightDate "1/17/2001" to "65280,255"
	Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
211:
Is it possible to highlight a date in gradient

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowHighlightDate to (OLEexHighlightDateCalendarGradient + OLEexShowHighlightDateCalendar)
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/1/2001"
	Send Destroy to hoCalendar
	Set ComHighlightDate "1/9/2001" to 65280
	Set ComHighlightDate "1/17/2001" to "65280,255"
	Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
210:
Is it possible to highlight a date in the calendar panel only

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowHighlightDate to OLEexShowHighlightDateCalendar
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/1/2001"
	Send Destroy to hoCalendar
	Set ComHighlightDate "1/9/2001" to 65280
	Set ComHighlightDate "1/17/2001" to "65280,255"
	Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
209:
Is it possible to highlight a date in the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowHighlightDate to OLEexShowHighlightDate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "1/25/2001"
	Send Destroy to hoCalendar
	Set ComHighlightDate "1/9/2001" to 65280
	Set ComHighlightDate "1/17/2001" to "65280,255"
	Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
208:
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBodyEventBackColor to (RGB(240,240,240))
	Set ComShowGroupingEvents to True
	Set ComDisplayGroupingButton to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups 1 "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComVisible of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 2 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComVisible of hoGroup1 to True
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/25/2012"
	Send Destroy to hoCalendar
	Variant voNonworkingPatterns
	Get ComNonworkingPatterns to voNonworkingPatterns
	Handle hoNonworkingPatterns
	Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns
	Set pvComObject of hoNonworkingPatterns to voNonworkingPatterns
		Get ComAdd of hoNonworkingPatterns 1234 OLEexPatternBrick to Nothing
	Send Destroy to hoNonworkingPatterns
	Variant voNonworkingTimes
	Get ComNonworkingTimes to voNonworkingTimes
	Handle hoNonworkingTimes
	Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes
	Set pvComObject of hoNonworkingTimes to voNonworkingTimes
		Get ComAdd of hoNonworkingTimes "1" "00:00" "08:45" 1234 to Nothing
		Variant voNonworkingTime
		Get ComAdd of hoNonworkingTimes "weekday(value) = 5" "10:00" "11:45" 1 to voNonworkingTime
		Handle hoNonworkingTime
		Get Create (RefClass(cComNonworkingTime)) to hoNonworkingTime
		Set pvComObject of hoNonworkingTime to voNonworkingTime
			Set ComGroupID of hoNonworkingTime to 1
		Send Destroy to hoNonworkingTime
		Variant voNonworkingTime1
		Get ComAdd of hoNonworkingTimes "weekday(value) = 5" "12:00" "13:00" 1234 to voNonworkingTime1
		Handle hoNonworkingTime1
		Get Create (RefClass(cComNonworkingTime)) to hoNonworkingTime1
		Set pvComObject of hoNonworkingTime1 to voNonworkingTime1
			Set ComGroupID of hoNonworkingTime1 to 2
		Send Destroy to hoNonworkingTime1
	Send Destroy to hoNonworkingTimes
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "5/25/2012 9:30:00 AM" "5/25/2012 1:00:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComGroupID of hoEvent to 1
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
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
// Occurs when the user dblclk the left mouse button over an object.
Procedure OnComDblClick Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComDblClick llShift llX llY
	Showln "DblClick " llX llY
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/24/2012"
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
		Variant voEvent
		Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComStatusColor of hoEvent to (RGB(255,0,0))
		Send Destroy to hoEvent
		Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to Nothing
	Send Destroy to hoEvents
	Set ComAllowEditEvent to OLEexDisallow
	Set ComAllowToggleSchedule to OLEexDisallow
	Send ComEndUpdate
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Set ComDayEndTime to "13:00"
	Variant voTimeScales
	Get ComTimeScales to voTimeScales
	Handle hoTimeScales
	Get Create (RefClass(cComTimeScales)) to hoTimeScales
	Set pvComObject of hoTimeScales to voTimeScales
		Variant voTimeScale
		Get ComAdd of hoTimeScales "+3:00" to voTimeScale
		Handle hoTimeScale
		Get Create (RefClass(cComTimeScale)) to hoTimeScale
		Set pvComObject of hoTimeScale to voTimeScale
			Set ComAlignLeft of hoTimeScale to True
			Set ComCaption of hoTimeScale to "EST <b>+03"
		Send Destroy to hoTimeScale
	Send Destroy to hoTimeScales
	Send ComBeginUpdate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "5/24/2012"
	Send Destroy to hoCalendar
	Set ComUpdateEventsLabel to "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>"
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
		Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to Nothing
		Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to Nothing
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
205:
Is there a way to add a hyperlink to the event that would run a report with parameters

// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String   llAnchorID String   llOptions
	Forward Send OnComAnchorClick llAnchorID llOptions
	Showln llAnchorID llOptions
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/20/2012"
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "6/20/2012 9:00:00 AM" "6/20/2012 11:00:00 AM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComLongLabel of hoEvent to "<%=%256%><br><a 1234;option 1>more ...</a>"
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "6/20/2012 11:00:00 AM" "6/20/2012 1:00:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComLongLabel of hoEvent1 to "<%=%256%><br><a 1235;option 2>more ...</a>"
		Send Destroy to hoEvent1
	Send Destroy to hoEvents
End_Procedure
204:
Can I have multiple months in the calendar section

Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComMinMonthY of hoCalendar to 2
		Set ComMaxMonthY of hoCalendar to 2
	Send Destroy to hoCalendar
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/20/2012"
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "6/20/2012 9:00:00 AM" "6/20/2012 11:00:00 AM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComUserData of hoEvent to 1234
			Set ComShortLabel of hoEvent to "<%=%256%><br>Order: <%=%6%>"
			Set ComLongLabel of hoEvent to (ComShortLabel(hoEvent))
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "6/20/2012 11:00:00 AM" "6/20/2012 1:00:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComUserData of hoEvent1 to 1235
			Set ComShortLabel of hoEvent1 to "<%=%256%>, Order: <%=%6%>"
			Set ComLongLabel of hoEvent1 to (ComShortLabel(hoEvent1))
		Send Destroy to hoEvent1
	Send Destroy to hoEvents
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/20/2012"
	Send Destroy to hoCalendar
	Set ComDefaultEventShortLabel to "<%=%256%><br>Order: <b><%=%6%>"
	Set ComDefaultEventLongLabel to (ComDefaultEventShortLabel(Self))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "6/20/2012 9:00:00 AM" "6/20/2012 11:00:00 AM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComUserData of hoEvent to 1234
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "6/20/2012 11:00:00 AM" "6/20/2012 1:00:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComUserData of hoEvent1 to 1235
		Send Destroy to hoEvent1
	Send Destroy to hoEvents
End_Procedure
201:
Can you add text with links in the event

// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String   llAnchorID String   llOptions
	Forward Send OnComAnchorClick llAnchorID llOptions
	Showln llAnchorID llOptions
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voCalendar
	Get ComCalendar to voCalendar
	Handle hoCalendar
	Get Create (RefClass(cComCalendar)) to hoCalendar
	Set pvComObject of hoCalendar to voCalendar
		Set ComSelection of hoCalendar to "6/20/2012"
	Send Destroy to hoCalendar
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "6/20/2012 9:00:00 AM" "6/20/2012 11:00:00 AM" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComShortLabel of hoEvent to "<a 1><%=%256%></a>"
			Set ComLongLabel of hoEvent to (ComShortLabel(hoEvent))
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "6/20/2012 11:00:00 AM" "6/20/2012 1:00:00 PM" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComShortLabel of hoEvent1 to "<a 2><%=%256%></a>"
			Set ComLongLabel of hoEvent1 to (ComShortLabel(hoEvent1))
		Send Destroy to hoEvent1
	Send Destroy to hoEvents
End_Procedure