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)

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as P
Dim var_Event3 as P
Dim var_Event4 as P
Dim var_Events as P
Dim var_Group as P
Dim var_Group1 as P
Dim var_Groups as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.SelectEventStyle = 48
oSchedule.AllowAllDayEventScroll = 4416 'exAllDayEventWheelScroll + exAllDayEventMax4
oSchedule.DefaultEventLongLabel = "<%=%><%= ( %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 `,` ) ) %>"
oSchedule.DefaultEventShortLabel = "<%=%><%=  ( %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` ) %>"
oSchedule.Calendar.Selection = {01/10/2001}
oSchedule.DisplayGroupingButton = .t.
oSchedule.ShowGroupingEvents = .t.
oSchedule.HeaderGroupHeight = 1
oSchedule.ShowAllDayHeader = .t.
oSchedule.OnResizeControl = 3073 'exCalendarAutoHide + exCalendarFit + exResizePanelRight
var_Groups = oSchedule.Groups
	var_Group = var_Groups.Add(1,"Group 1")
		var_Group.Title = "First"
		var_Group.Visible = .t.
	var_Group1 = var_Groups.Add(2,"Group 2")
		var_Group1.Title = "Second"
		var_Group1.Visible = .t.
var_Events = oSchedule.Events
	' var_Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00}).GroupID = 1
	var_Event = var_Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.GroupID = 1"

	' var_Events.Add({01/10/2001 10:00:00},{01/10/2001 13:00:00}).GroupID = 2
	var_Event1 = var_Events.Add({01/10/2001 10:00:00},{01/10/2001 13:00:00})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.GroupID = 2"

	var_Event2 = var_Events.Add({01/10/2001},{01/10/2001})
		var_Event2.GroupID = 1
		var_Event2.AllDayEvent = .t.
	var_Event3 = var_Events.Add({01/10/2001},{01/10/2001})
		var_Event3.GroupID = 2
		var_Event3.AllDayEvent = .t.
	var_Event4 = var_Events.Add({01/10/2001},{01/10/2001})
		var_Event4.GroupID = 2
		var_Event4.AllDayEvent = .t.
oSchedule.EndUpdate()

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)

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as P
Dim var_Event3 as P
Dim var_Event4 as P
Dim var_Events as P
Dim var_Group as P
Dim var_Group1 as P
Dim var_Groups as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.SelectEventStyle = 48
oSchedule.DefaultEventLongLabel = "<%=%><%= %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 `,` ) %>"
oSchedule.DefaultEventShortLabel = "<%=%><%=  %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` ) %>"
oSchedule.Calendar.Selection = {01/10/2001}
oSchedule.DisplayGroupingButton = .t.
oSchedule.ShowGroupingEvents = .t.
oSchedule.HeaderGroupHeight = 1
oSchedule.ShowAllDayHeader = .t.
oSchedule.OnResizeControl = 3073 'exCalendarAutoHide + exCalendarFit + exResizePanelRight
var_Groups = oSchedule.Groups
	var_Group = var_Groups.Add(1,"Group 1")
		var_Group.Title = "First"
		var_Group.Visible = .t.
	var_Group1 = var_Groups.Add(2,"Group 2")
		var_Group1.Title = "Second"
		var_Group1.Visible = .t.
var_Events = oSchedule.Events
	' var_Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00}).GroupID = 1
	var_Event = var_Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.GroupID = 1"

	' var_Events.Add({01/10/2001 10:00:00},{01/10/2001 13:00:00}).GroupID = 2
	var_Event1 = var_Events.Add({01/10/2001 10:00:00},{01/10/2001 13:00:00})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.GroupID = 2"

	var_Event2 = var_Events.Add({01/10/2001},{01/10/2001})
		var_Event2.GroupID = 1
		var_Event2.AllDayEvent = .t.
	var_Event3 = var_Events.Add({01/10/2001},{01/10/2001})
		var_Event3.GroupID = -1
		var_Event3.AllDayEvent = .t.
	var_Event4 = var_Events.Add({01/10/2001},{01/10/2001})
		var_Event4.GroupID = 2
		var_Event4.AllDayEvent = .t.
oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = {05/24/2012}
oSchedule.DefaultEventLongLabel = "<%=%><%=%5%><br><%=%256%>"
var_Events = oSchedule.Events
	' var_Events.Add({05/24/2012 09:00:00},{05/24/2012 10:00:00}).Caption = "textzeile1<br>textzeile2<br>textzeile3"
	var_Event = var_Events.Add({05/24/2012 09:00:00},{05/24/2012 10:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Caption = `textzeile1<br>textzeile2<br>textzeile3`"

	' var_Events.Add({05/24/2012 10:00:00},{05/24/2012 11:00:00}).Caption = "textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>"
	var_Event1 = var_Events.Add({05/24/2012 10:00:00},{05/24/2012 11:00:00})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.Caption = `textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>`"

oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.TimeScales.Item(0).Visible = .f.
oSchedule.OnResizeControl = 2048
oSchedule.ShowViewCompact = -1
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {05/24/2012}
	var_Calendar.Select(2)
var_Events = oSchedule.Events
	var_Events.Add({05/24/2012 10:00:00},{05/24/2012 12:00:00})
	' var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:30:00}).ShowStatus = .f.
	var_Event = var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:30:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.ShowStatus = False"

	var_Events.Add({05/24/2012 11:30:00},{05/24/2012 13:30:00})
oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {05/21/2012}
	var_Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oSchedule.OnResizeControl = 768 'exChangePanels + exHideSplitter
oSchedule.ScrollBars = 2
oSchedule.ShowViewCompact = 1
oSchedule.AllowMoveSchedule = 0
oSchedule.AllowResizeSchedule = 0
oSchedule.AllowToggleSchedule = 0
oSchedule.AllowExchangePanels = 0
oSchedule.AllowMoveTimeScale = 0
oSchedule.AllowResizeTimeScale = 0
oSchedule.AllowMultiDaysEvent = .f.
oSchedule.Template = "Background(36) = Background(37)" // oSchedule.Background(36) = oSchedule.Background(37)
oSchedule.TimeScales.Item(0).MinorTimeRuler = "00:10"
oSchedule.DayStartTime = "10:00"
oSchedule.DayEndTime = "14:00"
oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = .t.
oSchedule.Calendar.Selection = {05/21/2012}
oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oSchedule.ShowViewCompact = -1
oSchedule.ScrollBars = 2
var_Events = oSchedule.Events
	' var_Events.Add({05/22/2012},{05/23/2012}).AllDayEvent = .t.
	var_Event = var_Events.Add({05/22/2012},{05/23/2012})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.AllDayEvent = True"

	' var_Events.Add({05/21/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event1 = var_Events.Add({05/21/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event2 = var_Events.Add({05/22/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.AllDayEvent = True"

oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	' var_Calendar.SelectDate({05/20/2012}) = .t.
	oSchedule.TemplateDef = "dim var_Calendar"
	oSchedule.TemplateDef = var_Calendar
	oSchedule.Template = "var_Calendar.SelectDate(#5/20/2012#) = True"

	var_Calendar.Select(5)
oSchedule.OnResizeControl = 768 'exChangePanels + exHideSplitter
oSchedule.ScrollBars = 0
oSchedule.ShowViewCompact = 1
oSchedule.AllowMoveSchedule = 0
oSchedule.AllowResizeSchedule = 0
oSchedule.AllowToggleSchedule = 0
oSchedule.AllowExchangePanels = 0
oSchedule.AllowMoveTimeScale = 0
oSchedule.AllowResizeTimeScale = 0
oSchedule.AllowMultiDaysEvent = .f.
oSchedule.Template = "Background(36) = Background(37)" // oSchedule.Background(36) = oSchedule.Background(37)
oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_MarkZone as P
Dim var_MarkZone1 as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 768 'exChangePanels + exHideSplitter
oSchedule.Calendar.Selection = {06/27/2012}
var_MarkZone = oSchedule.MarkZones.Add("zoneA",{06/27/2012 09:00:00},{06/27/2012 11:00:00})
	var_MarkZone.Pattern.Type = 0
	var_MarkZone.LongLabel = "Yellow"
	var_MarkZone.BackColor = 65535
var_MarkZone1 = oSchedule.MarkZones.Add("zoneB",{06/27/2012 12:00:00},{06/27/2012 13:30:00})
	var_MarkZone1.Pattern.Type = 0
	var_MarkZone1.LongLabel = "Green"
	var_MarkZone1.BackColor = 65280
oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_MarkTime as P
Dim var_MarkTimes as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = oSchedule.ExecuteTemplate("#5/24/2012#")
var_MarkTimes = oSchedule.MarkTimes
	var_MarkTime = var_MarkTimes.Add("timer",oSchedule.ExecuteTemplate("#5/24/2012 11:35#"))
		var_MarkTime.Movable = .t.
		var_MarkTime.LineColor = 16711680
		var_MarkTime.StatusEventBackColor = 16711680
		var_MarkTime.TimeScaleLineColor = 16711680
		var_MarkTime.TimeScaleLabel = "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
oSchedule.EndUpdate()

287:
How do I display a picture with transparency

' Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
function PictureClick as v (Key  as  C)
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
	? Key 
end function

Dim oSchedule as P
Dim var_Event as local
Dim var_Events as P
Dim var_ExPictures as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.ShowSelectEvent = .f.
oSchedule.Calendar.Selection = {05/24/2012}
var_ExPictures = oSchedule.Pictures
	var_ExPictures.Add("pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/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+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/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+7yBTga7zhpB6BqBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+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")
var_Events = oSchedule.Events
	' var_Events.Add({05/24/2012 10:00:00},{05/24/2012 12:00:00}).Pictures = "pic1"
	var_Event = var_Events.Add({05/24/2012 10:00:00},{05/24/2012 12:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Pictures = `pic1`"

oSchedule.EndUpdate()

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.
function AddEvent as v (Ev  as  OLE::Exontrol.Schedule.1::IEvent)
	' Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oSchedule as P
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.SelectEventStyle = 48
oSchedule.Calendar.Selection = {01/10/2001}
oSchedule.OnResizeControl = 3073 'exCalendarAutoHide + exCalendarFit + exResizePanelRight
oSchedule.StatusEventSize = 0
oSchedule.Template = "DefaultEventPadding(-1) = 4" // oSchedule.DefaultEventPadding(-1) = 4
var_Events = oSchedule.Events
	var_Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00})
	var_Events.Add({01/10/2001 09:00:00},{01/10/2001 13:00:00})
	var_Events.Add({01/10/2001 12:30:00},{01/10/2001 13:00:00})

285:
I need a border around each event/item on scheduler. Can you direct me to propery to use (distinct)

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.SelectEventStyle = 48
oSchedule.Calendar.Selection = {01/10/2001}
oSchedule.OnResizeControl = 3073 'exCalendarAutoHide + exCalendarFit + exResizePanelRight
oSchedule.StatusEventSize = 0
oSchedule.Template = "DefaultEventPadding(-1) = 4" // oSchedule.DefaultEventPadding(-1) = 4
var_Events = oSchedule.Events
	' var_Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00}).BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
	var_Event = var_Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.BodyBackgroundExt = `[frame=RGB(0,0,0),framethick]`"

	' var_Events.Add({01/10/2001 09:00:00},{01/10/2001 13:00:00}).BodyBackgroundExt = "[frame=RGB(128,128,128),framethick]"
	var_Event1 = var_Events.Add({01/10/2001 09:00:00},{01/10/2001 13:00:00})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.BodyBackgroundExt = `[frame=RGB(128,128,128),framethick]`"

	' var_Events.Add({01/10/2001 12:30:00},{01/10/2001 13:00:00}).BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
	var_Event2 = var_Events.Add({01/10/2001 12:30:00},{01/10/2001 13:00:00})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.BodyBackgroundExt = `[frame=RGB(0,0,0),framethick]`"


284:
How can I change/specify the caption of the groups, when the user clicks the drop down button

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Events as P
Dim var_Group as P
Dim var_Group1 as P
Dim var_Groups as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = {05/24/2012}
oSchedule.DisplayGroupingButton = .t.
oSchedule.ShowGroupingEvents = .t.
var_Groups = oSchedule.Groups
	var_Group = var_Groups.Add(1,"Group A")
		var_Group.Caption = "<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland"
		var_Group.Visible = .t.
		var_Group.EventBackColor = 8421504
	var_Group1 = var_Groups.Add(2,"Group B")
		var_Group1.Caption = "<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia"
		var_Group1.Visible = .t.
		var_Group1.EventBackColor = 255
var_Events = oSchedule.Events
	' var_Events.Add({05/24/2012 10:00:00},{05/24/2012 12:00:00}).GroupID = 1
	var_Event = var_Events.Add({05/24/2012 10:00:00},{05/24/2012 12:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.GroupID = 1"

	' var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:30:00}).GroupID = 2
	var_Event1 = var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:30:00})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.GroupID = 2"

	' var_Events.Add({05/24/2012 11:30:00},{05/24/2012 13:30:00}).GroupID = 1
	var_Event2 = var_Events.Add({05/24/2012 11:30:00},{05/24/2012 13:30:00})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.GroupID = 1"

oSchedule.EndUpdate()

283:
Is it possible to hide the group header, but still display the groups/captions

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Events as P
Dim var_Group as P
Dim var_Group1 as P
Dim var_Groups as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.Template = "HTMLPicture(`pic1`) = `gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/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+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/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+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQBShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAkB6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChCgCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh277ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hhgygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAbBmgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAkhhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ=`" // oSchedule.HTMLPicture("pic1") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/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+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/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+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQBShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAkB6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChCgCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh277ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hhgygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAbBmgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAkhhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ="
oSchedule.Template = "HTMLPicture(`pic2`) = `gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/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+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/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+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQBSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hHAPgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+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=`" // oSchedule.HTMLPicture("pic2") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/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+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/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+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQBSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hHAPgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+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="
oSchedule.Calendar.Selection = {05/24/2012}
oSchedule.DisplayGroupingButton = .t.
oSchedule.ShowGroupingEvents = .t.
var_Groups = oSchedule.Groups
	var_Group = var_Groups.Add(1,"<c><b>Group</b><br><c><img>pic1</img>")
		var_Group.Visible = .t.
		var_Group.EventBackColor = 8421504
	var_Group1 = var_Groups.Add(2,"<c><b>Group</b><br><c><img>pic2</img>")
		var_Group1.Visible = .t.
		var_Group1.EventBackColor = 255
var_Events = oSchedule.Events
	' var_Events.Add({05/24/2012 10:00:00},{05/24/2012 12:00:00}).GroupID = 1
	var_Event = var_Events.Add({05/24/2012 10:00:00},{05/24/2012 12:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.GroupID = 1"

	' var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:30:00}).GroupID = 2
	var_Event1 = var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:30:00})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.GroupID = 2"

	' var_Events.Add({05/24/2012 11:30:00},{05/24/2012 13:30:00}).GroupID = 1
	var_Event2 = var_Events.Add({05/24/2012 11:30:00},{05/24/2012 13:30:00})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.GroupID = 1"

oSchedule.HeaderGroupHeight = -1
oSchedule.EndUpdate()

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)
Dim oSchedule as P
Dim s as 
Dim var_Calendar as P
Dim var_CopyTo as 
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.OnResizeControl = 768 'exChangePanels + exHideSplitter
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "#1/1/2016#"
	var_Calendar.Selection = "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))"
oSchedule.BorderSelStyle = -1
oSchedule.ShowViewCompact = -1
var_Events = oSchedule.Events
	var_Events.Add({01/10/2016 08:30:00},{01/10/2016 14:30:00})
	var_Events.Add({01/11/2016 09:30:00},{01/11/2016 11:30:00})
	var_Events.Add({01/15/2016 10:30:00},{01/15/2016 11:30:00})
s = oSchedule.Calendar.Selection
oSchedule.Calendar.Selection = "0"
var_CopyTo = oSchedule.CopyTo("c:/temp/test.png")
? "Look for c:/temp/test.png file" 
oSchedule.Calendar.Selection = s

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)
Dim oSchedule as P
Dim var_Calendar as P
Dim var_CopyTo as 
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.OnResizeControl = 768 'exChangePanels + exHideSplitter
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {01/01/2012}
	' var_Calendar.SelectDate({01/01/2012}) = .f.
	oSchedule.TemplateDef = "dim var_Calendar"
	oSchedule.TemplateDef = var_Calendar
	oSchedule.Template = "var_Calendar.SelectDate(#1/1/2012#) = False"

var_Events = oSchedule.Events
	var_Events.Add({01/01/2012 08:30:00},{01/01/2012 09:30:00})
	var_Events.Add({01/01/2012 08:35:00},{01/01/2012 09:35:00})
	var_Events.Add({01/01/2012 10:30:00},{01/01/2012 12:30:00})
var_CopyTo = oSchedule.CopyTo("c:/temp/test.png")
? "Look for c:/temp/test.png file" 

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)
Dim oSchedule as P
Dim var_Calendar as P
Dim var_CopyTo as 
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {01/01/2012}
	' var_Calendar.SelectDate({01/01/2012}) = .f.
	oSchedule.TemplateDef = "dim var_Calendar"
	oSchedule.TemplateDef = var_Calendar
	oSchedule.Template = "var_Calendar.SelectDate(#1/1/2012#) = False"

var_Events = oSchedule.Events
	var_Events.Add({01/01/2012 08:30:00},{01/01/2012 09:30:00})
	var_Events.Add({01/01/2012 08:35:00},{01/01/2012 09:35:00})
	var_Events.Add({01/01/2012 10:30:00},{01/01/2012 12:30:00})
var_CopyTo = oSchedule.CopyTo("c:/temp/test.png")
? "Look for c:/temp/test.png file" 

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

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Event3 as local
Dim var_Event4 as local
Dim var_Event5 as local
Dim var_Event6 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = .t.
oSchedule.Calendar.Selection = {05/21/2012}
oSchedule.Calendar.Selection = "value >= #5/20/2012# and value <= #5/26/2012#"
oSchedule.ShowViewCompact = -1
oSchedule.AllowAllDayEventScroll = 4403 '23 + exAllDayEventWheelScroll + exAllDayEventNoMax
oSchedule.BodyEventBackColor = 8421504
oSchedule.Template = "Background(165) = 14474460" // oSchedule.Background(165) = 14474460
var_Events = oSchedule.Events
	' var_Events.Add({05/21/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event = var_Events.Add({05/21/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/23/2012}).AllDayEvent = .t.
	var_Event1 = var_Events.Add({05/22/2012},{05/23/2012})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event2 = var_Events.Add({05/22/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event3 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event3"
	oSchedule.TemplateDef = var_Event3
	oSchedule.Template = "var_Event3.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event4 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event4"
	oSchedule.TemplateDef = var_Event4
	oSchedule.Template = "var_Event4.AllDayEvent = True"

	' var_Events.Add({05/23/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event5 = var_Events.Add({05/23/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event5"
	oSchedule.TemplateDef = var_Event5
	oSchedule.Template = "var_Event5.AllDayEvent = True"

	' var_Events.Add({05/24/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event6 = var_Events.Add({05/24/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event6"
	oSchedule.TemplateDef = var_Event6
	oSchedule.Template = "var_Event6.AllDayEvent = True"

oSchedule.EndUpdate()

278:
Is it possible to highlight the newly created event ( runtime creation )
Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.AllowSelectCreateEvent = 2

277:
Is it possible to select the newly created event ( runtime creation )
Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.AllowSelectCreateEvent = 1

276:
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (ebn)

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Event3 as local
Dim var_Event4 as local
Dim var_Event5 as local
Dim var_Event6 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHfj2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA==")
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = .t.
oSchedule.Calendar.Selection = {05/21/2012}
oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oSchedule.ShowViewCompact = -1
oSchedule.AllowAllDayEventScroll = 4416 'exAllDayEventWheelScroll + exAllDayEventMax4
oSchedule.Template = "Background(165) = 16777216" // oSchedule.Background(165) = 16777216
var_Events = oSchedule.Events
	' var_Events.Add({05/22/2012},{05/23/2012}).AllDayEvent = .t.
	var_Event = var_Events.Add({05/22/2012},{05/23/2012})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.AllDayEvent = True"

	' var_Events.Add({05/21/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event1 = var_Events.Add({05/21/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event2 = var_Events.Add({05/22/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event3 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event3"
	oSchedule.TemplateDef = var_Event3
	oSchedule.Template = "var_Event3.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event4 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event4"
	oSchedule.TemplateDef = var_Event4
	oSchedule.Template = "var_Event4.AllDayEvent = True"

	' var_Events.Add({05/23/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event5 = var_Events.Add({05/23/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event5"
	oSchedule.TemplateDef = var_Event5
	oSchedule.Template = "var_Event5.AllDayEvent = True"

	' var_Events.Add({05/24/2012},{05/26/2012}).AllDayEvent = .t.
	var_Event6 = var_Events.Add({05/24/2012},{05/26/2012})
	oSchedule.TemplateDef = "dim var_Event6"
	oSchedule.TemplateDef = var_Event6
	oSchedule.Template = "var_Event6.AllDayEvent = True"

oSchedule.EndUpdate()

275:
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (solid)

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Event3 as local
Dim var_Event4 as local
Dim var_Event5 as local
Dim var_Event6 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = .t.
oSchedule.Calendar.Selection = {05/21/2012}
oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oSchedule.ShowViewCompact = -1
oSchedule.AllowAllDayEventScroll = 4416 'exAllDayEventWheelScroll + exAllDayEventMax4
oSchedule.Template = "Background(165) = 14474460" // oSchedule.Background(165) = 14474460
var_Events = oSchedule.Events
	' var_Events.Add({05/22/2012},{05/23/2012}).AllDayEvent = .t.
	var_Event = var_Events.Add({05/22/2012},{05/23/2012})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.AllDayEvent = True"

	' var_Events.Add({05/21/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event1 = var_Events.Add({05/21/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event2 = var_Events.Add({05/22/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event3 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event3"
	oSchedule.TemplateDef = var_Event3
	oSchedule.Template = "var_Event3.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event4 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event4"
	oSchedule.TemplateDef = var_Event4
	oSchedule.Template = "var_Event4.AllDayEvent = True"

	' var_Events.Add({05/23/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event5 = var_Events.Add({05/23/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event5"
	oSchedule.TemplateDef = var_Event5
	oSchedule.Template = "var_Event5.AllDayEvent = True"

	' var_Events.Add({05/24/2012},{05/26/2012}).AllDayEvent = .t.
	var_Event6 = var_Events.Add({05/24/2012},{05/26/2012})
	oSchedule.TemplateDef = "dim var_Event6"
	oSchedule.TemplateDef = var_Event6
	oSchedule.Template = "var_Event6.AllDayEvent = True"

oSchedule.EndUpdate()

274:
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to remove that

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Event3 as local
Dim var_Event4 as local
Dim var_Event5 as local
Dim var_Event6 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = .t.
oSchedule.Calendar.Selection = {05/21/2012}
oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oSchedule.ShowViewCompact = -1
oSchedule.AllowAllDayEventScroll = 4416 'exAllDayEventWheelScroll + exAllDayEventMax4
oSchedule.Template = "Background(165) = 0" // oSchedule.Background(165) = 0
var_Events = oSchedule.Events
	' var_Events.Add({05/22/2012},{05/23/2012}).AllDayEvent = .t.
	var_Event = var_Events.Add({05/22/2012},{05/23/2012})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.AllDayEvent = True"

	' var_Events.Add({05/21/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event1 = var_Events.Add({05/21/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event2 = var_Events.Add({05/22/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event3 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event3"
	oSchedule.TemplateDef = var_Event3
	oSchedule.Template = "var_Event3.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event4 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event4"
	oSchedule.TemplateDef = var_Event4
	oSchedule.Template = "var_Event4.AllDayEvent = True"

	' var_Events.Add({05/23/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event5 = var_Events.Add({05/23/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event5"
	oSchedule.TemplateDef = var_Event5
	oSchedule.Template = "var_Event5.AllDayEvent = True"

	' var_Events.Add({05/24/2012},{05/26/2012}).AllDayEvent = .t.
	var_Event6 = var_Events.Add({05/24/2012},{05/26/2012})
	oSchedule.TemplateDef = "dim var_Event6"
	oSchedule.TemplateDef = var_Event6
	oSchedule.Template = "var_Event6.AllDayEvent = True"

oSchedule.EndUpdate()

273:
The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that
Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Event3 as local
Dim var_Event4 as local
Dim var_Event5 as local
Dim var_Event6 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = .t.
oSchedule.Calendar.Selection = {05/21/2012}
oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oSchedule.ShowViewCompact = -1
oSchedule.AllowAllDayEventScroll = 320 'exAllDayEventScroll + exAllDayEventMax4
var_Events = oSchedule.Events
	' var_Events.Add({05/22/2012},{05/23/2012}).AllDayEvent = .t.
	var_Event = var_Events.Add({05/22/2012},{05/23/2012})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.AllDayEvent = True"

	' var_Events.Add({05/21/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event1 = var_Events.Add({05/21/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event2 = var_Events.Add({05/22/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event3 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event3"
	oSchedule.TemplateDef = var_Event3
	oSchedule.Template = "var_Event3.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event4 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event4"
	oSchedule.TemplateDef = var_Event4
	oSchedule.Template = "var_Event4.AllDayEvent = True"

	' var_Events.Add({05/23/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event5 = var_Events.Add({05/23/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event5"
	oSchedule.TemplateDef = var_Event5
	oSchedule.Template = "var_Event5.AllDayEvent = True"

	' var_Events.Add({05/24/2012},{05/26/2012}).AllDayEvent = .t.
	var_Event6 = var_Events.Add({05/24/2012},{05/26/2012})
	oSchedule.TemplateDef = "dim var_Event6"
	oSchedule.TemplateDef = var_Event6
	oSchedule.Template = "var_Event6.AllDayEvent = True"

oSchedule.EndUpdate()

272:
Is it possible to specify the number of all-day events to be visible

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Event3 as local
Dim var_Event4 as local
Dim var_Event5 as local
Dim var_Event6 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = .t.
oSchedule.Calendar.Selection = {05/21/2012}
oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oSchedule.ShowViewCompact = -1
oSchedule.AllowAllDayEventScroll = 4416 'exAllDayEventWheelScroll + exAllDayEventMax4
var_Events = oSchedule.Events
	' var_Events.Add({05/22/2012},{05/23/2012}).AllDayEvent = .t.
	var_Event = var_Events.Add({05/22/2012},{05/23/2012})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.AllDayEvent = True"

	' var_Events.Add({05/21/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event1 = var_Events.Add({05/21/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event2 = var_Events.Add({05/22/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event3 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event3"
	oSchedule.TemplateDef = var_Event3
	oSchedule.Template = "var_Event3.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event4 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event4"
	oSchedule.TemplateDef = var_Event4
	oSchedule.Template = "var_Event4.AllDayEvent = True"

	' var_Events.Add({05/23/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event5 = var_Events.Add({05/23/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event5"
	oSchedule.TemplateDef = var_Event5
	oSchedule.Template = "var_Event5.AllDayEvent = True"

	' var_Events.Add({05/24/2012},{05/26/2012}).AllDayEvent = .t.
	var_Event6 = var_Events.Add({05/24/2012},{05/26/2012})
	oSchedule.TemplateDef = "dim var_Event6"
	oSchedule.TemplateDef = var_Event6
	oSchedule.Template = "var_Event6.AllDayEvent = True"

oSchedule.EndUpdate()

271:
How do I disable scrolling the all-day header
Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Event3 as local
Dim var_Event4 as local
Dim var_Event5 as local
Dim var_Event6 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = .t.
oSchedule.Calendar.Selection = {05/21/2012}
oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oSchedule.ShowViewCompact = -1
oSchedule.AllowAllDayEventScroll = 0
var_Events = oSchedule.Events
	' var_Events.Add({05/22/2012},{05/23/2012}).AllDayEvent = .t.
	var_Event = var_Events.Add({05/22/2012},{05/23/2012})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.AllDayEvent = True"

	' var_Events.Add({05/21/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event1 = var_Events.Add({05/21/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/24/2012}).AllDayEvent = .t.
	var_Event2 = var_Events.Add({05/22/2012},{05/24/2012})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event3 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event3"
	oSchedule.TemplateDef = var_Event3
	oSchedule.Template = "var_Event3.AllDayEvent = True"

	' var_Events.Add({05/22/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event4 = var_Events.Add({05/22/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event4"
	oSchedule.TemplateDef = var_Event4
	oSchedule.Template = "var_Event4.AllDayEvent = True"

	' var_Events.Add({05/23/2012},{05/25/2012}).AllDayEvent = .t.
	var_Event5 = var_Events.Add({05/23/2012},{05/25/2012})
	oSchedule.TemplateDef = "dim var_Event5"
	oSchedule.TemplateDef = var_Event5
	oSchedule.Template = "var_Event5.AllDayEvent = True"

	' var_Events.Add({05/24/2012},{05/26/2012}).AllDayEvent = .t.
	var_Event6 = var_Events.Add({05/24/2012},{05/26/2012})
	oSchedule.TemplateDef = "dim var_Event6"
	oSchedule.TemplateDef = var_Event6
	oSchedule.Template = "var_Event6.AllDayEvent = True"

oSchedule.EndUpdate()

270:
How can I display the current week only, when the user selects the date in the calendar panel

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 129 'exDisableSplitter + exResizePanelRight
var_Calendar = oSchedule.Calendar
	var_Calendar.OnSelectDate = 1
	var_Calendar.Selection = {01/10/2001}
	var_Calendar.SingleSel = .t.
oSchedule.Calendar.FirstWeekDay = 1
oSchedule.ScrollBars = 0
oSchedule.ShowViewCompact = -1
oSchedule.AllowResizeSchedule = 0
oSchedule.AllowMoveSchedule = 0
oSchedule.AllowToggleSchedule = 0
oSchedule.Template = "Background(35) = Background(34)" // oSchedule.Background(35) = oSchedule.Background(34)
oSchedule.TimeScales.Item(0).AllowResize = .f.
oSchedule.DayViewWidth = 0
oSchedule.EndUpdate()

269:
How do I capture the control and save it as PDF (Method 2)
Dim oSchedule as P
Dim var_Calendar as P
Dim var_CopyTo as 
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {06/01/2001}
	var_Calendar.Selection = "value in (#6/11/2001#,#6/12/2001#)"
oSchedule.DayViewWidth = 512
oSchedule.DayViewHeight = 512
var_Events = oSchedule.Events
	var_Events.Add({06/11/2001 10:00:00},{06/11/2001 13:00:00})
	var_Events.Add({06/12/2001 10:00:00},{06/12/2001 13:00:00})
var_CopyTo = oSchedule.CopyTo("C:/Temp/test.pdf")
? "Look For: C:/Temp/test.pdf file" 

268:
How do I capture the control and save it as PDF (Method 1)
Dim oSchedule as P
Dim var_Calendar as P
Dim var_Events as P
Dim var_Print as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {06/01/2001}
	var_Calendar.Selection = "value in (#6/11/2001#,#6/12/2001#)"
oSchedule.DayViewWidth = 512
oSchedule.DayViewHeight = 512
var_Events = oSchedule.Events
	var_Events.Add({06/11/2001 10:00:00},{06/11/2001 13:00:00})
	var_Events.Add({06/12/2001 10:00:00},{06/12/2001 13:00:00})
var_Print = OLE.Create("Exontrol.Print")
	var_Print.Options = "FitToPage=On"
	var_Print.PrintExt = oSchedule
	var_Print.CopyTo("C:/Temp/test.pdf")
	? "Look For: C:/Temp/test.pdf file" 

267:
How do I capture the control and save it as an image (JPG or BMP) (Method 2)
Dim oSchedule as P
Dim var_Calendar as P
Dim var_CopyTo as 
Dim var_CopyTo1 as 
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {06/01/2001}
	var_Calendar.Selection = "value in (#6/11/2001#,#6/12/2001#)"
oSchedule.DayViewWidth = 512
oSchedule.DayViewHeight = 512
var_Events = oSchedule.Events
	var_Events.Add({06/11/2001 10:00:00},{06/11/2001 13:00:00})
	var_Events.Add({06/12/2001 10:00:00},{06/12/2001 13:00:00})
var_CopyTo = oSchedule.CopyTo("C:/Temp/test.bmp")
var_CopyTo1 = oSchedule.CopyTo("C:/Temp/test.jpg")
? "Look For: C:/Temp/test.* file" 

266:
How do I capture the control and save it as an image (JPG or BMP) (Method 1)
Dim oSchedule as P
Dim var_Calendar as P
Dim var_Events as P
Dim var_Print as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {06/01/2001}
	var_Calendar.Selection = "value in (#6/11/2001#,#6/12/2001#)"
oSchedule.DayViewWidth = 512
oSchedule.DayViewHeight = 512
var_Events = oSchedule.Events
	var_Events.Add({06/11/2001 10:00:00},{06/11/2001 13:00:00})
	var_Events.Add({06/12/2001 10:00:00},{06/12/2001 13:00:00})
var_Print = OLE.Create("Exontrol.Print")
	var_Print.Options = "FitToPage=On"
	var_Print.PrintExt = oSchedule
	var_Print.CopyTo("C:/Temp/test.bmp")
	var_Print.CopyTo("C:/Temp/test.jpg")
	? "Look For: C:/Temp/test.* file" 

265:
Recurrence: The 2nd to last weekday of the month

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/29/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/29/1997 09:00:00},{09/29/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2"
	var_Event = var_Events.Add({09/29/1997 09:00:00},{09/29/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2`"

oSchedule.EndUpdate()

264:
Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/04/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/04/1997 09:00:00},{09/04/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3"
	var_Event = var_Events.Add({09/04/1997 09:00:00},{09/04/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3`"

oSchedule.EndUpdate()

263:
Recurrence: The last work day of the month

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/30/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({08/05/1997 09:00:00},{08/05/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1"
	var_Event = var_Events.Add({08/05/1997 09:00:00},{08/05/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1`"

oSchedule.EndUpdate()

262:
Recurrence: An example where the days generated makes a difference because of WKST (Sample 2)

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {08/05/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({08/05/1997 09:00:00},{08/05/1997 14:00:00}).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
	var_Event = var_Events.Add({08/05/1997 09:00:00},{08/05/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU`"

oSchedule.EndUpdate()

261:
Recurrence: An example where the days generated makes a difference because of WKST (Sample 1)

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {08/05/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({08/05/1997 09:00:00},{08/05/1997 14:00:00}).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
	var_Event = var_Events.Add({08/05/1997 09:00:00},{08/05/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU`"

oSchedule.EndUpdate()

260:
Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {11/05/1996}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({11/05/1996 09:00:00},{11/05/1996 14:00:00}).Repetitive = "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8"
	var_Event = var_Events.Add({11/05/1996 09:00:00},{11/05/1996 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8`"

oSchedule.EndUpdate()

259:
Recurrence: The first Saturday that follows the first Sunday of the month, forever

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/13/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/13/1997 09:00:00},{09/13/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13"
	var_Event = var_Events.Add({09/13/1997 09:00:00},{09/13/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13`"

oSchedule.EndUpdate()

258:
Recurrence: Every Friday the 13th, forever

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {02/13/1998}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13`"

oSchedule.EndUpdate()

257:
Recurrence: Every Thursday, but only during June, July, and August, forever

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {06/05/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({06/05/1997 09:00:00},{06/05/1997 14:00:00}).Repetitive = "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8"
	var_Event = var_Events.Add({06/05/1997 09:00:00},{06/05/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8`"

oSchedule.EndUpdate()

256:
Recurrence: Every Thursday in March, forever

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {03/13/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({03/13/1997 09:00:00},{03/13/1997 14:00:00}).Repetitive = "FREQ=YEARLY;BYMONTH=3;BYDAY=TH"
	var_Event = var_Events.Add({03/13/1997 09:00:00},{03/13/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=YEARLY;BYMONTH=3;BYDAY=TH`"

oSchedule.EndUpdate()

255:
Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {05/12/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({05/12/1997 09:00:00},{05/12/1997 14:00:00}).Repetitive = "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO"
	var_Event = var_Events.Add({05/12/1997 09:00:00},{05/12/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO`"

oSchedule.EndUpdate()

254:
Recurrence: Every 20th Monday of the year, forever

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {05/19/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({01/01/1997 09:00:00},{01/01/1997 14:00:00}).Repetitive = "FREQ=YEARLY;BYDAY=20MO"
	var_Event = var_Events.Add({01/01/1997 09:00:00},{01/01/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=YEARLY;BYDAY=20MO`"

oSchedule.EndUpdate()

253:
Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {01/01/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({01/01/1997 09:00:00},{01/01/1997 14:00:00}).Repetitive = "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200"
	var_Event = var_Events.Add({01/01/1997 09:00:00},{01/01/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200`"

oSchedule.EndUpdate()

252:
Recurrence: Every other year on January, February, and March for 10 occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {03/10/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({03/10/1997 09:00:00},{03/10/1997 14:00:00}).Repetitive = "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3"
	var_Event = var_Events.Add({03/10/1997 09:00:00},{03/10/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3`"

oSchedule.EndUpdate()

251:
Recurrence: Yearly in June and July for 10 occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {06/10/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthX = 2
	var_Calendar.MaxMonthY = 2
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({06/10/1997 09:00:00},{06/10/1997 14:00:00}).Repetitive = "FREQ=YEARLY;COUNT=10;BYMONTH=6,7"
	var_Event = var_Events.Add({06/10/1997 09:00:00},{06/10/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=YEARLY;COUNT=10;BYMONTH=6,7`"

oSchedule.EndUpdate()

250:
Recurrence: Every Tuesday, every other month

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/02/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;INTERVAL=2;BYDAY=TU`"

oSchedule.EndUpdate()

249:
Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/10/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/10/1997 09:00:00},{09/10/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15"
	var_Event = var_Events.Add({09/10/1997 09:00:00},{09/10/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15`"

oSchedule.EndUpdate()

248:
Recurrence: Monthly on the first and last day of the month for 10 occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/30/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/03/1997 09:00:00},{09/03/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1"
	var_Event = var_Events.Add({09/03/1997 09:00:00},{09/03/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1`"

oSchedule.EndUpdate()

247:
Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/02/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15`"

oSchedule.EndUpdate()

246:
Recurrence: Monthly on the third to the last day of the month, forever

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/28/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/28/1997 09:00:00},{09/28/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;BYMONTHDAY=-3"
	var_Event = var_Events.Add({09/28/1997 09:00:00},{09/28/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;BYMONTHDAY=-3`"

oSchedule.EndUpdate()

245:
Recurrence: Monthly on the second to last Monday of the month for 6 months

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/22/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/22/1997 09:00:00},{09/22/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO"
	var_Event = var_Events.Add({09/22/1997 09:00:00},{09/22/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;COUNT=6;BYDAY=-2MO`"

oSchedule.EndUpdate()

244:
Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/07/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/07/1997 09:00:00},{09/07/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU"
	var_Event = var_Events.Add({09/07/1997 09:00:00},{09/07/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU`"

oSchedule.EndUpdate()

243:
Recurrence: Monthly on the 1st Friday until December 24, 1997

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/05/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/05/1997 09:00:00},{09/05/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR"
	var_Event = var_Events.Add({09/05/1997 09:00:00},{09/05/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR`"

oSchedule.EndUpdate()

242:
Recurrence: Monthly on the 1st Friday for ten occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/05/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/05/1997 09:00:00},{09/05/1997 14:00:00}).Repetitive = "FREQ=MONTHLY;COUNT=10;BYDAY=1FR"
	var_Event = var_Events.Add({09/05/1997 09:00:00},{09/05/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=MONTHLY;COUNT=10;BYDAY=1FR`"

oSchedule.EndUpdate()

241:
Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/16/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH`"

oSchedule.EndUpdate()

240:
Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/17/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR`"

oSchedule.EndUpdate()

239:
Recurrence: Weekly on Tuesday and Thursday for 5 weeks

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/16/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH`"

oSchedule.EndUpdate()

238:
Recurrence: Weekly on Tuesday and Thursday for 5 weeks

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/16/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH`"

oSchedule.EndUpdate()

237:
Recurrence: Every other day - forever

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/04/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=DAILY;INTERVAL=2"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=DAILY;INTERVAL=2`"

oSchedule.EndUpdate()

236:
Recurrence: Daily until December 24, 1997

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/17/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=DAILY;UNTIL=19971224T000000Z"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=DAILY;UNTIL=19971224T000000Z`"

oSchedule.EndUpdate()

235:
Recurrence: Daily for 10 occurrences

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local
Dim var_Events as P
Dim var_Highlight as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {09/09/1997}
	var_Calendar.ShowNonMonthDays = .f.
	var_Calendar.MaxMonthY = 4
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = .f.
	var_Calendar.FirstWeekDay = 1
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = "Background(81) = 15790320" // oSchedule.Background(81) = 15790320
var_Events = oSchedule.Events
	' var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00}).Repetitive = "FREQ=DAILY;COUNT=10"
	var_Event = var_Events.Add({09/02/1997 09:00:00},{09/02/1997 14:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.Repetitive = `FREQ=DAILY;COUNT=10`"

oSchedule.EndUpdate()

234:
How do I display the week number according, so the January 1st is in the first week

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {01/01/2016}
	var_Calendar.FirstWeekDay = 0
	var_Calendar.DisplayWeekNumberAs = 1
oSchedule.EndUpdate()

233:
How do I display the week number according to ISO8601 standard

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {01/04/2016}
	var_Calendar.FirstWeekDay = 1
	var_Calendar.DisplayWeekNumberAs = 0
oSchedule.EndUpdate()

232:
How do I hide the week number

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.FirstWeekDay = 1
	var_Calendar.ShowWeeks = .f.
	var_Calendar.ShowNonMonthDays = .f.
oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Event as local

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = .t.
var_Calendar = oSchedule.Calendar
	var_Calendar.FirstWeekDay = 1
	' var_Calendar.SelectDate({05/08/2012}) = .t.
	oSchedule.TemplateDef = "dim var_Calendar"
	oSchedule.TemplateDef = var_Calendar
	oSchedule.Template = "var_Calendar.SelectDate(#5/8/2012#) = True"

	var_Calendar.Select(3)
	' var_Calendar.SelectDate({05/15/2012}) = .f.
	oSchedule.TemplateDef = "dim var_Calendar"
	oSchedule.TemplateDef = var_Calendar
	oSchedule.Template = "var_Calendar.SelectDate(#5/15/2012#) = False"

	var_Calendar.Select(19 'exSelectToggle + exSelectWeek)
oSchedule.Template = "Background(87) = 15790320" // oSchedule.Background(87) = 15790320
oSchedule.HeaderAllDayEventHeight = -20
' oSchedule.Events.Add({05/08/2012},{05/17/2012}).AllDayEvent = .t.
var_Event = oSchedule.Events.Add({05/08/2012},{05/17/2012})
oSchedule.TemplateDef = "dim var_Event"
oSchedule.TemplateDef = var_Event
oSchedule.Template = "var_Event.AllDayEvent = True"

oSchedule.EndUpdate()

230:
How can I display a single text on a specified date

Dim oSchedule as P
Dim var_NonworkingPattern as local

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = {05/26/2012}
oSchedule.Calendar.Selection = "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)"
' oSchedule.NonworkingPatterns.Add(1234,0).BackgroundExt = "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]"
var_NonworkingPattern = oSchedule.NonworkingPatterns.Add(1234,0)
oSchedule.TemplateDef = "dim var_NonworkingPattern"
oSchedule.TemplateDef = var_NonworkingPattern
oSchedule.Template = "var_NonworkingPattern.BackgroundExt = `[text=``<font ;6><fgcolor 808080>just a notice``,align=0x11]`"

oSchedule.NonworkingTimes.Add("value = #05/25/2012#","09:00","10:00",1234)
oSchedule.EndUpdate()

229:
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)

Dim oSchedule as P
Dim rs as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3)
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = {11/11/2013}
oSchedule.Template = "DataField(1) = `Start`" // oSchedule.DataField(1) = "Start"
oSchedule.Template = "DataField(2) = `End`" // oSchedule.DataField(2) = "End"
oSchedule.Template = "DataField(11) = `Extra`" // oSchedule.DataField(11) = "Extra"
oSchedule.DataSource = rs
? oSchedule.Events.Item(1).KnownProperty(12) 
oSchedule.EndUpdate()

228:
Is it possible to display some text/image on the schedule's view background

Dim oSchedule as P
Dim var_NonworkingPattern as local
Dim var_NonworkingPattern1 as local

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = {05/25/2012}
' oSchedule.NonworkingPatterns.Add(1234,6).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
var_NonworkingPattern = oSchedule.NonworkingPatterns.Add(1234,6)
oSchedule.TemplateDef = "dim var_NonworkingPattern"
oSchedule.TemplateDef = var_NonworkingPattern
oSchedule.Template = "var_NonworkingPattern.BackgroundExt = `[text=``<fgcolor 808080>just a caption``,align=0x11]`"

' oSchedule.NonworkingPatterns.Add(1235,0).BackgroundExt = "[text=`<fgcolor 808080>just another caption`,align=0x11]"
var_NonworkingPattern1 = oSchedule.NonworkingPatterns.Add(1235,0)
oSchedule.TemplateDef = "dim var_NonworkingPattern1"
oSchedule.TemplateDef = var_NonworkingPattern1
oSchedule.Template = "var_NonworkingPattern1.BackgroundExt = `[text=``<fgcolor 808080>just another caption``,align=0x11]`"

oSchedule.NonworkingTimes.Add("weekday(value) = 5","08:00","08:59:59",1234)
oSchedule.NonworkingTimes.Add("weekday(value) = 5","09:00","09:59:59",1235)
oSchedule.NonworkingTimes.Add("weekday(value) = 5","10:00","10:59:59",1234)
oSchedule.EndUpdate()

227:
How can I display a text on the schedule's view background

Dim oSchedule as P
Dim var_NonworkingPattern as local

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = {05/25/2012}
' oSchedule.NonworkingPatterns.Add(1234,0).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
var_NonworkingPattern = oSchedule.NonworkingPatterns.Add(1234,0)
oSchedule.TemplateDef = "dim var_NonworkingPattern"
oSchedule.TemplateDef = var_NonworkingPattern
oSchedule.Template = "var_NonworkingPattern.BackgroundExt = `[text=``<fgcolor 808080>just a caption``,align=0x11]`"

oSchedule.NonworkingTimes.Add("weekday(value) = 5","12:00","13:00",1234)
oSchedule.EndUpdate()

226:
Is it possible to change the visual appearance of the edit's context menu

Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSchedule.Template = "Background(99) = 16777216" // oSchedule.Background(99) = 16777216

225:
How do I customize the edit's context menu

Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oSchedule.EditContextMenuItems = "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"

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.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.Schedule.1::LayoutChangingEnum)
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
	? Operation 
	oSchedule.DayViewHeight = 2016
end function

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	' var_Calendar.SelectDate({05/20/2012}) = .t.
	oSchedule.TemplateDef = "dim var_Calendar"
	oSchedule.TemplateDef = var_Calendar
	oSchedule.Template = "var_Calendar.SelectDate(#5/20/2012#) = True"

	var_Calendar.Select(3)
oSchedule.ScrollBars = 2
oSchedule.ShowViewCompact = 3
oSchedule.DayViewHeight = 2016
oSchedule.AllowMoveSchedule = 0
oSchedule.AllowResizeSchedule = 0
oSchedule.AllowToggleSchedule = 0
oSchedule.AllowExchangePanels = 0
oSchedule.AllowMoveTimeScale = 0
oSchedule.AllowResizeTimeScale = 0
oSchedule.AllowMultiDaysEvent = .f.
oSchedule.TimeScales.Item(0).MinorTimeRuler = "00:10"
oSchedule.DayStartTime = "00:00"
oSchedule.DayEndTime = "24:00"
oSchedule.OnResizeControl = 3073 'exCalendarAutoHide + exCalendarFit + exResizePanelRight
oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	' var_Calendar.SelectDate({05/20/2012}) = .t.
	oSchedule.TemplateDef = "dim var_Calendar"
	oSchedule.TemplateDef = var_Calendar
	oSchedule.Template = "var_Calendar.SelectDate(#5/20/2012#) = True"

	var_Calendar.Select(3)
oSchedule.OnResizeControl = 768 'exChangePanels + exHideSplitter
oSchedule.ScrollBars = 2
oSchedule.ShowViewCompact = 1
oSchedule.DayViewHeight = 2016
oSchedule.AllowMoveSchedule = 0
oSchedule.AllowResizeSchedule = 0
oSchedule.AllowToggleSchedule = 0
oSchedule.AllowExchangePanels = 0
oSchedule.AllowMoveTimeScale = 0
oSchedule.AllowResizeTimeScale = 0
oSchedule.AllowMultiDaysEvent = .f.
oSchedule.Template = "Background(36) = Background(37)" // oSchedule.Background(36) = oSchedule.Background(37)
oSchedule.TimeScales.Item(0).MinorTimeRuler = "00:10"
oSchedule.DayStartTime = "00:00"
oSchedule.DayEndTime = "24:00"
oSchedule.EndUpdate()

222:
How can I show a single week, no calendar

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	' var_Calendar.SelectDate({05/20/2012}) = .t.
	oSchedule.TemplateDef = "dim var_Calendar"
	oSchedule.TemplateDef = var_Calendar
	oSchedule.Template = "var_Calendar.SelectDate(#5/20/2012#) = True"

	var_Calendar.Select(3)
oSchedule.OnResizeControl = 768 'exChangePanels + exHideSplitter
oSchedule.ScrollBars = 0
oSchedule.ShowViewCompact = 1
oSchedule.AllowMoveSchedule = 0
oSchedule.AllowResizeSchedule = 0
oSchedule.AllowToggleSchedule = 0
oSchedule.AllowExchangePanels = 0
oSchedule.AllowMoveTimeScale = 0
oSchedule.AllowResizeTimeScale = 0
oSchedule.AllowMultiDaysEvent = .f.
oSchedule.Template = "Background(36) = Background(37)" // oSchedule.Background(36) = oSchedule.Background(37)
oSchedule.EndUpdate()

221:
How do I select the dates within a giving interval only

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {05/01/2012}
	var_Calendar.Selection = "(value >= #5/13/2012#) and (value <= #5/26/2012#)"
var_Events = oSchedule.Events
	var_Events.Add({05/24/2012 09:00:00},{05/24/2012 12:00:00})
	var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:45:00})
	var_Events.Add({05/24/2012 11:30:00},{05/24/2012 14:30:00})
	var_Events.Add({05/24/2012 12:45:00},{05/24/2012 15:45:00})
oSchedule.EndUpdate()

220:
How do I display the dates within a giving interval only

Dim oSchedule as P
Dim var_Calendar as P
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = {05/24/2012}
	var_Calendar.MinDate = {05/13/2012}
	var_Calendar.MaxDate = {05/26/2012}
var_Events = oSchedule.Events
	var_Events.Add({05/24/2012 09:00:00},{05/24/2012 12:00:00})
	var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:45:00})
	var_Events.Add({05/24/2012 11:30:00},{05/24/2012 14:30:00})
	var_Events.Add({05/24/2012 12:45:00},{05/24/2012 15:45:00})
oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_TimeScale as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.DayStartTime = "00:00"
oSchedule.DayEndTime = "24:00"
var_TimeScale = oSchedule.TimeScales.Item(0)
	var_TimeScale.MajorTimeLabel = "<%hh%>:<%nn%>"
	var_TimeScale.Width = 32

218:
How do I show a double frame

Dim oSchedule as P
Dim var_Event as P
Dim var_Event1 as P
Dim var_Event2 as P
Dim var_Event3 as P
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.SelectEventStyle = 48
oSchedule.Calendar.Selection = {01/10/2001}
oSchedule.DefaultEventLongLabel = ""
oSchedule.DefaultEventShortLabel = ""
var_Events = oSchedule.Events
	var_Event = var_Events.Add({01/10/2001 08:00:00},{01/10/2001 10:00:00})
		var_Event.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x21,pattern=0x000,frame=RGB(0,0,0)],client[back=RGB(255,255,0),align=0x21,pattern=0x000,frame=RGB(0,0,0)]"
		' var_Event.BodyBackgroundExtValue(1,1) = 255
		oSchedule.TemplateDef = "dim var_Event"
		oSchedule.TemplateDef = var_Event
		oSchedule.Template = "var_Event.BodyBackgroundExtValue(1,1) = 255"

		' var_Event.BodyBackgroundExtValue(1,2) = "35%"
		oSchedule.TemplateDef = "dim var_Event"
		oSchedule.TemplateDef = var_Event
		oSchedule.Template = "var_Event.BodyBackgroundExtValue(1,2) = `35%`"

	var_Event1 = var_Events.Add({01/10/2001 10:00:00},{01/10/2001 12:00:00})
		var_Event1.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]"
		' var_Event1.BodyBackgroundExtValue(1,2) = "35%"
		oSchedule.TemplateDef = "dim var_Event1"
		oSchedule.TemplateDef = var_Event1
		oSchedule.Template = "var_Event1.BodyBackgroundExtValue(1,2) = `35%`"

		' var_Event1.BodyBackgroundExtValue(2,1) = 65535
		oSchedule.TemplateDef = "dim var_Event1"
		oSchedule.TemplateDef = var_Event1
		oSchedule.Template = "var_Event1.BodyBackgroundExtValue(2,1) = 65535"

	var_Event2 = var_Events.Add({01/10/2001 12:00:00},{01/10/2001 14:00:00})
		var_Event2.ShowStatus = .f.
		var_Event2.BodyBackgroundExt = "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(0%,0%,100%,100%),pattern=0x000,frame=RGB(0,0,0)]"
	var_Event3 = var_Events.Add({01/10/2001 14:00:00},{01/10/2001 16:00:00})
		var_Event3.ShowStatus = .f.
		var_Event3.BodyBackgroundExt = "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(4,0%,100%-4,100%),pattern=0x000,frame=RGB(0,0,0)]"

217:
How can I add more colors on the event

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Event2 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.SelectEventStyle = 48
oSchedule.Calendar.Selection = {01/10/2001}
var_Events = oSchedule.Events
	' var_Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00}).BodyBackgroundExt = "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
	var_Event = var_Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.BodyBackgroundExt = `bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])`"

	' var_Events.Add({01/10/2001 10:00:00},{01/10/2001 13:00:00}).BodyBackgroundExt = "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
	var_Event1 = var_Events.Add({01/10/2001 10:00:00},{01/10/2001 13:00:00})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.BodyBackgroundExt = `right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])`"

	' var_Events.Add({01/10/2001 11:00:00},{01/10/2001 14:00:00}).BodyBackgroundExt = "left[33%,back=RGB(0,128,0)](top[50%,back=RGB(0,255,0)]),left[33%](top[33%,back=RGB(0,255,255)],top[33%,back=RGB(0,0,128)],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)])"
	var_Event2 = var_Events.Add({01/10/2001 11:00:00},{01/10/2001 14:00:00})
	oSchedule.TemplateDef = "dim var_Event2"
	oSchedule.TemplateDef = var_Event2
	oSchedule.Template = "var_Event2.BodyBackgroundExt = `left[33%,back=RGB(0,128,0)](top[50%,back=RGB(0,255,0)]),left[33%](top[33%,back=RGB(0,255,255)],top[33%,back=RGB(0,0,128)],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)])`"


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
Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
var_Calendar = oSchedule.Calendar
	var_Calendar.AlignDate = .f.
	var_Calendar.MinMonthY = 2
	var_Calendar.MaxMonthY = 2

215:
How can I bound the control to a data source

' Fired when an internal error occurs.
function Error as v (Error  as  N,Description  as  C)
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
	? Description 
end function

Dim oSchedule as P
Dim rs as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3)
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = {11/11/2013}
oSchedule.Template = "DataField(1) = `Start`" // oSchedule.DataField(1) = "Start"
oSchedule.Template = "DataField(2) = `End`" // oSchedule.DataField(2) = "End"
oSchedule.Template = "DataField(11) = `Extra`" // oSchedule.DataField(11) = "Extra"
oSchedule.DataSource = rs
oSchedule.EndUpdate()

214:
How can I start drag and drop an event

' Occurs when the OLEDrag method is called.
function OLEStartDrag as v (Data  as  OLE::Exontrol.Schedule.1::IExDataObject,AllowedEffects  as  N)
	' Data.SetData( "your data to be dragged" )
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
	AllowedEffects = 1
end function

Dim oSchedule as P
Dim var_Event as local

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.OLEDropMode = 1
oSchedule.SelectEventStyle = 48
oSchedule.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
oSchedule.DefaultEventShortLabel = oSchedule.DefaultEventLongLabel
oSchedule.Calendar.Selection = {01/10/2001}
oSchedule.OnResizeControl = 3073 'exCalendarAutoHide + exCalendarFit + exResizePanelRight
' oSchedule.Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00}).ExtraLabel = "Click the event and wait to start dragging."
var_Event = oSchedule.Events.Add({01/10/2001 09:00:00},{01/10/2001 12:30:00})
oSchedule.TemplateDef = "dim var_Event"
oSchedule.TemplateDef = var_Event
oSchedule.Template = "var_Event.ExtraLabel = `Click the event and wait to start dragging.`"

oSchedule.EndUpdate()

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

Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.ShowHighlightDate = 4353 'exHighlightDateCalendarEllipticClip + exHighlightDateCalendarGradient + exShowHighlightDateCalendar
oSchedule.Calendar.Selection = {01/01/2001}
oSchedule.Template = "HighlightDate(#1/9/2001#) = 65280" // oSchedule.HighlightDate({01/09/2001}) = 65280
oSchedule.Template = "HighlightDate(#1/17/2001#) = `65280,255`" // oSchedule.HighlightDate({01/17/2001}) = "65280,255"
oSchedule.Template = "HighlightDate(#1/25/2001#) = `255,65280,16711680`" // oSchedule.HighlightDate({01/25/2001}) = "255,65280,16711680"

212:
How can I arrange the colors to highlight the date vertically

Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.ShowHighlightDate = 49 'exHighlightDateVertical + exShowHighlightDateCalendar
oSchedule.Calendar.Selection = {01/01/2001}
oSchedule.Template = "HighlightDate(#1/9/2001#) = 65280" // oSchedule.HighlightDate({01/09/2001}) = 65280
oSchedule.Template = "HighlightDate(#1/17/2001#) = `65280,255`" // oSchedule.HighlightDate({01/17/2001}) = "65280,255"
oSchedule.Template = "HighlightDate(#1/25/2001#) = `255,65280,16711680`" // oSchedule.HighlightDate({01/25/2001}) = "255,65280,16711680"

211:
Is it possible to highlight a date in gradient

Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.ShowHighlightDate = 257 'exHighlightDateCalendarGradient + exShowHighlightDateCalendar
oSchedule.Calendar.Selection = {01/01/2001}
oSchedule.Template = "HighlightDate(#1/9/2001#) = 65280" // oSchedule.HighlightDate({01/09/2001}) = 65280
oSchedule.Template = "HighlightDate(#1/17/2001#) = `65280,255`" // oSchedule.HighlightDate({01/17/2001}) = "65280,255"
oSchedule.Template = "HighlightDate(#1/25/2001#) = `255,65280,16711680`" // oSchedule.HighlightDate({01/25/2001}) = "255,65280,16711680"

210:
Is it possible to highlight a date in the calendar panel only

Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.ShowHighlightDate = 1
oSchedule.Calendar.Selection = {01/01/2001}
oSchedule.Template = "HighlightDate(#1/9/2001#) = 65280" // oSchedule.HighlightDate({01/09/2001}) = 65280
oSchedule.Template = "HighlightDate(#1/17/2001#) = `65280,255`" // oSchedule.HighlightDate({01/17/2001}) = "65280,255"
oSchedule.Template = "HighlightDate(#1/25/2001#) = `255,65280,16711680`" // oSchedule.HighlightDate({01/25/2001}) = "255,65280,16711680"

209:
Is it possible to highlight a date in the control

Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.ShowHighlightDate = 3
oSchedule.Calendar.Selection = {01/25/2001}
oSchedule.Template = "HighlightDate(#1/9/2001#) = 65280" // oSchedule.HighlightDate({01/09/2001}) = 65280
oSchedule.Template = "HighlightDate(#1/17/2001#) = `65280,255`" // oSchedule.HighlightDate({01/17/2001}) = "65280,255"
oSchedule.Template = "HighlightDate(#1/25/2001#) = `255,65280,16711680`" // oSchedule.HighlightDate({01/25/2001}) = "255,65280,16711680"

208:
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible

Dim oSchedule as P
Dim var_Event as local
Dim var_Group as local
Dim var_Group1 as local
Dim var_NonworkingTime as local
Dim var_NonworkingTime1 as local
Dim var_NonworkingTimes as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.BodyEventBackColor = 15790320
oSchedule.ShowGroupingEvents = .t.
oSchedule.DisplayGroupingButton = .t.
' oSchedule.Groups.Add(1,"Group 1").Visible = .t.
var_Group = oSchedule.Groups.Add(1,"Group 1")
oSchedule.TemplateDef = "dim var_Group"
oSchedule.TemplateDef = var_Group
oSchedule.Template = "var_Group.Visible = True"

' oSchedule.Groups.Add(2,"Group 2").Visible = .t.
var_Group1 = oSchedule.Groups.Add(2,"Group 2")
oSchedule.TemplateDef = "dim var_Group1"
oSchedule.TemplateDef = var_Group1
oSchedule.Template = "var_Group1.Visible = True"

oSchedule.Calendar.Selection = {05/25/2012}
oSchedule.NonworkingPatterns.Add(1234,11)
var_NonworkingTimes = oSchedule.NonworkingTimes
	var_NonworkingTimes.Add("1","00:00","08:45",1234)
	' var_NonworkingTimes.Add("weekday(value) = 5","10:00","11:45",1).GroupID = 1
	var_NonworkingTime = var_NonworkingTimes.Add("weekday(value) = 5","10:00","11:45",1)
	oSchedule.TemplateDef = "dim var_NonworkingTime"
	oSchedule.TemplateDef = var_NonworkingTime
	oSchedule.Template = "var_NonworkingTime.GroupID = 1"

	' var_NonworkingTimes.Add("weekday(value) = 5","12:00","13:00",1234).GroupID = 2
	var_NonworkingTime1 = var_NonworkingTimes.Add("weekday(value) = 5","12:00","13:00",1234)
	oSchedule.TemplateDef = "dim var_NonworkingTime1"
	oSchedule.TemplateDef = var_NonworkingTime1
	oSchedule.Template = "var_NonworkingTime1.GroupID = 2"

' oSchedule.Events.Add({05/25/2012 09:30:00},{05/25/2012 13:00:00}).GroupID = 1
var_Event = oSchedule.Events.Add({05/25/2012 09:30:00},{05/25/2012 13:00:00})
oSchedule.TemplateDef = "dim var_Event"
oSchedule.TemplateDef = var_Event
oSchedule.Template = "var_Event.GroupID = 1"

oSchedule.EndUpdate()

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.
function DblClick as v (Shift  as  N,X  as  OLE::Exontrol.Schedule.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Schedule.1::OLE_YPOS_PIXELS)
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
	? "DblClick " 
	? X 
	? Y 
end function

Dim oSchedule as P
Dim var_Event as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = {05/24/2012}
var_Events = oSchedule.Events
	var_Events.Add({05/24/2012 10:00:00},{05/24/2012 12:00:00})
	' var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:30:00}).StatusColor = 255
	var_Event = var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:30:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.StatusColor = 255"

	var_Events.Add({05/24/2012 11:30:00},{05/24/2012 13:30:00})
oSchedule.AllowEditEvent = 0
oSchedule.AllowToggleSchedule = 0
oSchedule.EndUpdate()

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

Dim oSchedule as P
Dim var_Events as P
Dim var_TimeScale as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.DayEndTime = "13:00"
var_TimeScale = oSchedule.TimeScales.Add("+3:00")
	var_TimeScale.AlignLeft = .t.
	var_TimeScale.Caption = "EST <b>+03"
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = {05/24/2012}
oSchedule.UpdateEventsLabel = "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>"
var_Events = oSchedule.Events
	var_Events.Add({05/24/2012 10:00:00},{05/24/2012 12:00:00})
	var_Events.Add({05/24/2012 10:45:00},{05/24/2012 12:30:00})
	var_Events.Add({05/24/2012 11:30:00},{05/24/2012 13:30:00})
oSchedule.EndUpdate()

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.
function AnchorClick as v (AnchorID  as  C,Options  as  C)
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
	? AnchorID 
	? Options 
end function

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.Calendar.Selection = {06/20/2012}
var_Events = oSchedule.Events
	' var_Events.Add({06/20/2012 09:00:00},{06/20/2012 11:00:00}).LongLabel = "<%=%256%><br><a 1234;option 1>more ...</a>"
	var_Event = var_Events.Add({06/20/2012 09:00:00},{06/20/2012 11:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.LongLabel = `<%=%256%><br><a 1234;option 1>more ...</a>`"

	' var_Events.Add({06/20/2012 11:00:00},{06/20/2012 13:00:00}).LongLabel = "<%=%256%><br><a 1235;option 2>more ...</a>"
	var_Event1 = var_Events.Add({06/20/2012 11:00:00},{06/20/2012 13:00:00})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.LongLabel = `<%=%256%><br><a 1235;option 2>more ...</a>`"


204:
Can I have multiple months in the calendar section

Dim oSchedule as P
Dim var_Calendar as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
var_Calendar = oSchedule.Calendar
	var_Calendar.MinMonthY = 2
	var_Calendar.MaxMonthY = 2

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

Dim oSchedule as P
Dim var_Event as P
Dim var_Event1 as P
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.Calendar.Selection = {06/20/2012}
var_Events = oSchedule.Events
	var_Event = var_Events.Add({06/20/2012 09:00:00},{06/20/2012 11:00:00})
		var_Event.UserData = 1234
		var_Event.ShortLabel = "<%=%256%><br>Order: <%=%6%>"
		var_Event.LongLabel = var_Event.ShortLabel
	var_Event1 = var_Events.Add({06/20/2012 11:00:00},{06/20/2012 13:00:00})
		var_Event1.UserData = 1235
		var_Event1.ShortLabel = "<%=%256%>, Order: <%=%6%>"
		var_Event1.LongLabel = var_Event1.ShortLabel

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

Dim oSchedule as P
Dim var_Event as local
Dim var_Event1 as local
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.Calendar.Selection = {06/20/2012}
oSchedule.DefaultEventShortLabel = "<%=%256%><br>Order: <b><%=%6%>"
oSchedule.DefaultEventLongLabel = oSchedule.DefaultEventShortLabel
var_Events = oSchedule.Events
	' var_Events.Add({06/20/2012 09:00:00},{06/20/2012 11:00:00}).UserData = 1234
	var_Event = var_Events.Add({06/20/2012 09:00:00},{06/20/2012 11:00:00})
	oSchedule.TemplateDef = "dim var_Event"
	oSchedule.TemplateDef = var_Event
	oSchedule.Template = "var_Event.UserData = 1234"

	' var_Events.Add({06/20/2012 11:00:00},{06/20/2012 13:00:00}).UserData = 1235
	var_Event1 = var_Events.Add({06/20/2012 11:00:00},{06/20/2012 13:00:00})
	oSchedule.TemplateDef = "dim var_Event1"
	oSchedule.TemplateDef = var_Event1
	oSchedule.Template = "var_Event1.UserData = 1235"


201:
Can you add text with links in the event

' Occurs when an anchor element is clicked.
function AnchorClick as v (AnchorID  as  C,Options  as  C)
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
	? AnchorID 
	? Options 
end function

Dim oSchedule as P
Dim var_Event as P
Dim var_Event1 as P
Dim var_Events as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.Calendar.Selection = {06/20/2012}
var_Events = oSchedule.Events
	var_Event = var_Events.Add({06/20/2012 09:00:00},{06/20/2012 11:00:00})
		var_Event.ShortLabel = "<a 1><%=%256%></a>"
		var_Event.LongLabel = var_Event.ShortLabel
	var_Event1 = var_Events.Add({06/20/2012 11:00:00},{06/20/2012 13:00:00})
		var_Event1.ShortLabel = "<a 2><%=%256%></a>"
		var_Event1.LongLabel = var_Event1.ShortLabel