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)

local oSchedule,var_Event,var_Event1,var_Event2,var_Event3,var_Event4,var_Events,var_Group,var_Group1,var_Groups

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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 = true
oSchedule.ShowGroupingEvents = true
oSchedule.HeaderGroupHeight = 1
oSchedule.ShowAllDayHeader = true
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 = true
	var_Group1 = var_Groups.Add(2,"Group 2")
		var_Group1.Title = "Second"
		var_Group1.Visible = true
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.GroupID = 1]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.GroupID = 2]
	endwith
	var_Event2 = var_Events.Add("01/10/2001","01/10/2001")
		var_Event2.GroupID = 1
		var_Event2.AllDayEvent = true
	var_Event3 = var_Events.Add("01/10/2001","01/10/2001")
		var_Event3.GroupID = 2
		var_Event3.AllDayEvent = true
	var_Event4 = var_Events.Add("01/10/2001","01/10/2001")
		var_Event4.GroupID = 2
		var_Event4.AllDayEvent = true
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)

local oSchedule,var_Event,var_Event1,var_Event2,var_Event3,var_Event4,var_Events,var_Group,var_Group1,var_Groups

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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 = true
oSchedule.ShowGroupingEvents = true
oSchedule.HeaderGroupHeight = 1
oSchedule.ShowAllDayHeader = true
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 = true
	var_Group1 = var_Groups.Add(2,"Group 2")
		var_Group1.Title = "Second"
		var_Group1.Visible = true
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.GroupID = 1]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.GroupID = 2]
	endwith
	var_Event2 = var_Events.Add("01/10/2001","01/10/2001")
		var_Event2.GroupID = 1
		var_Event2.AllDayEvent = true
	var_Event3 = var_Events.Add("01/10/2001","01/10/2001")
		var_Event3.GroupID = -1
		var_Event3.AllDayEvent = true
	var_Event4 = var_Events.Add("01/10/2001","01/10/2001")
		var_Event4.GroupID = 2
		var_Event4.AllDayEvent = true
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

local oSchedule,var_Event,var_Event1,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Caption = "textzeile1<br>textzeile2<br>textzeile3"]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.Caption = "textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>"]
	endwith
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

local oSchedule,var_Calendar,var_Event,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.TimeScales.Item(0).Visible = false
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 = false
	var_Event = var_Events.Add("05/24/2012 10:45:00","05/24/2012 12:30:00")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.ShowStatus = False]
	endwith
	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

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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 = false
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

local oSchedule,var_Event,var_Event1,var_Event2,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = true
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 = true
	var_Event = var_Events.Add("05/22/2012","05/23/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.AllDayEvent = True]
	endwith
	// var_Events.Add("05/21/2012","05/24/2012").AllDayEvent = true
	var_Event1 = var_Events.Add("05/21/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/24/2012").AllDayEvent = true
	var_Event2 = var_Events.Add("05/22/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.AllDayEvent = True]
	endwith
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

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	// var_Calendar.SelectDate("05/20/2012") = true
	with (oSchedule)
		TemplateDef = [dim var_Calendar]
		TemplateDef = var_Calendar
		Template = [var_Calendar.SelectDate(#5/20/2012#) = True]
	endwith
	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 = false
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

local oSchedule,var_MarkZone,var_MarkZone1

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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 = 0xffff
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 = 0xff00
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

local oSchedule,var_MarkTime,var_MarkTimes

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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 = true
		var_MarkTime.LineColor = 0xff0000
		var_MarkTime.StatusEventBackColor = 0xff0000
		var_MarkTime.TimeScaleLineColor = 0xff0000
		var_MarkTime.TimeScaleLabel = "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
oSchedule.EndUpdate()

287:
How do I display a picture with transparency

/*
with (this.EXSCHEDULEACTIVEXCONTROL1.nativeObject)
	PictureClick = class::nativeObject_PictureClick
endwith
*/
// Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
function nativeObject_PictureClick(Key)
	oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
	? Str(Key) 
return

local oSchedule,var_Event,var_Events,var_ExPictures

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.ShowSelectEvent = false
oSchedule.Calendar.Selection = "05/24/2012"
var_ExPictures = oSchedule.Pictures
	var_ExPictures.Add("pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" ;
 +"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" &
 +"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" &
 +"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" &
 +"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" &
 +"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+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/hz" &
 +"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAAChpAkgiAggqAsAEhigrAkgmASAygKB/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZAghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+Bkglh+h6i4hfh7hehygvgMB9hPhEh9gXh/AKgihUhBh/A1hwA1gwAdh8ASg4AEB+ADh8AAB+AFh8AThHBxg7B4BmhFBZABAABjgbgwh2gBg4A8grArB/3UgDgQBfgzhpBzhpgUhOYogKBlBZB+ARgAA+NxgDhZgWBcgKg9BfgjBRhogngj4zBCg6Af" &
 +"ApAzBwB+OiBtA2AbA/hHqYg6ADBZBMBNgfgfAfBfByh4g8BUAiAkgyBMBAg4AcA+BsgyAZBGgRgFA/gbAIh/h6h2AMh/huheg9hbB6h6g6hJhA1zAc5RhhgN5TBLASB3gIXagQAMAGBdAghJhUAvhahohBAiBshzBzBTB4A9AzhTgDh9AOAZBjBfAPAOAeA2ZlBKAJB61xhBE+gmhKATiWhnBvhlhrAcgMghhGg2hBAQA4B85xBWBQBQXiBIAchohkhih/gN36hyBqhiDRgABQgoB0AJAKBvAbAkAxhlBzAVgVAVBJA2gbANg5gdAOAWBrh2gzAW6HBIiagwh9hRhiBTBGAVgAgNB3g5giB/grARBlA6B/gsBhhjaTB2A0AaBQhahah6hWBVBVBlAUB+hNAEh2BVAtkNhSgFBxAAOjBOg2gxBhBTgnAzB9ADABAAh/BohRgjgzBPhrhVgaAaAagihWArSxA0gGhzB3gBhgAdhVPTgOhgA8gShjAsgcgjhUhcBdg+zcBshsgsgtgvAvAPA5hdguBWBUs1LxBbh7gsBahLhzBtjjBpg9AABDgjA6hVBtB0hygt7IAhAz7Jg3AkgkhEtvh5hYhRBhAhBzB6g9AsgwA3hng0AFgNB6hHB7hRBrgxAcBaAGVWhYgehXgjhLgcBvBththxhd7egugB7gBThoAzh57igHA5A3BYgsW8gshMgiAgBZgQh0AKghA3hLsfAGAwAWB0ARgagNBXhWBWAEB+7yBTga7zhpB6" &
 +"BqBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+g6B8AsBoA+B6gGgGgxBTB6hVA2h2ACZYAxhSAAhIASB0gngQAphyg0hf3pAJgrAMBwg4BZAYgVAihihKgVhzgMBhg/h9AAAqBRh0BbgTsbgHhwAbhFATANhNBMhMhYgwhlhihRAThT6WBahYh6AzhZgLBAA7h6ALhJgLBZBnhzhthAhAhGB7h7htOfA0hzh4gxhJgBg6hThzBlg4hchyBFc/AsA0hIBihGEnB8BQgvAkgBggAhAmBvBrgngNBGhTgTAThWg1B5gsgAhABRBTgZB+AYAZBxBMBMhPBbJ9BohlhIB/Awh+g/gOAAAuBhhBhUB2gXBSgagKgXgXAXAtA5AXAdBvhCBJBKgrgqBEAHhjBjhO7dBthhBGh7B7BaAdgAzWgxBthXBTACAoAuAuAOBBBxgXgpF2AFhEhtgHgDACg1AfARAiVxAHA4Af9zhc0CB3BOAoATApBWhCp0gJA+hTA7gnAxhWgEhqgEgQB+BzBweFANBGBahVgZB6oehXBwBrAphiAkBCAhhbB0AEBLA3guBfg/AtArgvgXhVGUhfBPhwBlHFBYhcBlh0AxAYgb6phyA0A3g3hPgAAEA9ACgpgqBNAPAPAWBuB1B1BVBUgNBbgvBUhvgPhqgdheBoBxgUAFgiAsAPgN8VhvhxBWg4ANhRBSA+hNB8AwASAjh+B8" &
 +"B8AcAMhMg3A0DThhgxhRgGBahxhggBApBEWFBmhS+/BBBhhwgIB4BgAYAJhJgOA2BDARgAhmF6A4gGB8Bo/Jgrg/Bfh/hXBnA8gOAEAWgZAUAIH8ApAshmA8Bjgcg5/Ugehh/WB3gxhNhugiAaA7AcBFgcgRADhSBWAThPBzgyBPALgSAABHABBRhCA72hBpBpApA/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9iNBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69iWxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2HCUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+RYOEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgN" &
 +"ACNAAEkRROEQrhCGAgkBA")
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Pictures = "pic1"]
	endwith
oSchedule.EndUpdate()

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

/*
with (this.EXSCHEDULEACTIVEXCONTROL1.nativeObject)
	AddEvent = class::nativeObject_AddEvent
endwith
*/
// Notifies your application once the a new event is added.
function nativeObject_AddEvent(Ev)
	/* Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]" */
	oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
return

local oSchedule,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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)

local oSchedule,var_Event,var_Event1,var_Event2,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.BodyBackgroundExt = "[frame=RGB(128,128,128),framethick]"]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"]
	endwith

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

local oSchedule,var_Event,var_Event1,var_Event2,var_Events,var_Group,var_Group1,var_Groups

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.Calendar.Selection = "05/24/2012"
oSchedule.DisplayGroupingButton = true
oSchedule.ShowGroupingEvents = true
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 = true
		var_Group.EventBackColor = 0x808080
	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 = true
		var_Group1.EventBackColor = 0xff
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.GroupID = 1]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.GroupID = 2]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.GroupID = 1]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Event,var_Event1,var_Event2,var_Events,var_Group,var_Group1,var_Groups

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" ;
 +"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" &
 +"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" &
 +"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" &
 +"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" &
 +"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+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/hz" &
 +"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAACB5gkgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhhAEA/ABRgBIhQAFgTgQhFARAEgsgkhngmAMAdhJh6A3gdBUhXBHhzhaB5hFB1HEgNgasJAOB1Bq3OB3Aeh3vth3A9gSgkh/g5hJ01A/hthbB9hQB/gCB4DPgCA9BAAeBYAGh2AAhvgBAvhkBZBOBiB5gsB2gsACBwB8AFBWBegGA6AOLkgvgiBvAABIhvh/AnAvhUhShIBmgzBRhLAyg+gDABB3gBgOhAA6AmAuBDBvA7hTA0hfAagfgfhXhrB5A4" &
 +"gyACAHAHgHhdh+A/B/gTh8AcAvBlhgOnhfBngyAZK2A4BMAlgqBohVAJAUAKAFALgaAmgthBA7AlhigLh/ghBAA0LxBchch8g6A7g7hbh3B+heBBBgB3B3A3ARhtBLgsBfgXBXh5A/g+B/hqBzh5heh0BagohIgBg4B/ApAatAg6BdBBBWBrhMA8AbgGAhhlByg5AvB+gzhFhihxBxghAjgeBlgEByB5h8g5gMA8BQgtBRAGh6B7gjgTZzANArArgrh+hquoAlhSgpB5B6B6A6BYBb57g858hcghAHhbAvhWhMhKAkBeKBguh/hRgNAjAjgjh6h0BshZg7AWALBZhD6KvyAtgtg7husuhJhJh7gYAzAihRhohJBnBtBGgNg9h3A4hogfgcAcA8ApBmBPBnhZAEAwALBngwBtp5gYAZgZhJg9h6BpBSgxA1g1hVga6XgsA2A3g3wIA9AR6pA9ARBIgYBnhjhxgTBRBIB2h3B0gYhuBxhRAHhPgnhciZh1gCAzAEgGBWBdADgPgoA/gXgIAEAuAKBbA+hRBBhRBohSgUAygAgIghgTh+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQ" &
 +"BShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAkB6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChCgCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh277ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hhgygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0" &
 +"A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+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+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" ;
 +"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" &
 +"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" &
 +"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" &
 +"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" &
 +"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+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/hz" &
 +"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADBngkgiAggqAsAEhiiig2AqUgBPA5hnB3Bshug3A9g7BbhthqALPBglN0gCgUoQh4AQAIgAgVgTAhBEAIBYACBIhEB4hggoASBiBKBsBJARRDhwBkgMABBrAQADA+AUAlAmhGBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/g/h5hvgzAMB9hPgNh7gnh6h1vtAIA9hVAggVggAbAoWrgAB1ABhGhBg/AAg+hng4huAAB9BjhbATiLhihNgQB2gegoBkgxrEgxAQAQBGgABpAdgJgfgfhpgRBWh8h+tWgmhpgXAABgAzuAYRAhAtAEhfBVhVBVA/BsLNAWAyBpAZ" &
 +"hRgChhBwg4BUjtB/LiAehMgCAeBwg+B9hiY9g7BThpgkgXAlA0AMgAgCBBhghshRAUBbBBBthOhYBxgvh/BgANAOgbg3hvAuAvgvAvAXBjhFgkB1hBADgHgPAkATBJh0gWAbBcgzgZA75YBbhUhWBaBqBegxhjgHAEg9hcBMg8BQg6V8h1gegPBXhOBjA0gAgkX2AFhggphNBmBOB+ZSgDBxBdAdAdhihWgagahXBdg7h3gzB6B6h6BvBmhIgkAyA6uihKAGhAggBQAoAIBCBJgwAZBigZhTANhz5+A1hs5/g9A3g3hXhEAgBygXAuhdAyAshaA0AohiX/A1h0h8BThzheAFgLAWAcA9h/B+A8hOh/ApgxAABAh7gIgHB6g7BeBABghggghfBWhWgmgCAYADBrgYAJg9AAhehgB5hGBj6KBbAbA1g/21gEgQBMBs40AHgOAeB0AV6oAphxAyhiBHhghbhuoEB/AgA5gUgAAhBQhoBPhMBHgCgPBpBEAqgqAqBcBIg9guArArALAZgEABBMBqlEAzAohGQ8gAgjACgASQq7hNAvBvhoBwBhhfAmAQBfKYg7gEAgBBAFhQBuBFhcg7g0s6gSMxhhAageBgB4BEAHgjBKBJhOhmh2A7V4jtBGAuAogcA1hLAlAQKehwBFhdBxgshXgrgUgUAUAkBzhHBhAhhDgHA+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQ" &
 +"BSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hHAPgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+AFh0hMAXgvhfZVhqBrglglASBhAQhkAMBVARg9hUhdA9AVARBlhuBkgJgTgOAe8zBLBwhQgQhp7dhXhtBfTJBJBFBFhFhKhyhlhLhDgUAfBkARB0gyBhBpBrAKAAAwAGATAZhb9FBNhQgeFVgNBGhDgjhchnhzBmBMgJh0h1h1gZgngmgmhigHAAgFhZBthMAhhshygEgCAygFnlB7AoBIAjgbg0BRACgKAihchLgGAwAvguguhHBGBJgzDtB9BzAWgtgBBwAwgiBJhAgAAyhChTAQglg0AHgfASAXhNBTAkArtGhLAAApgtATBlhSA/gAAMASB/AMA9B9HUhPAyBzBzgrhWBIYwhVByBhgjhHB8ArBXgsgJgRAqhEABhrA4hxhDAygXBBBXheBRARAGAwgmBBgoBZBgBVh1hrAmgtAWALBO8sBkh5BnBPgPgkhLAEgqgBhjBihKAoB2goBgklgfBdBfgxgyhcBYhYg4hJBgAMg2hkhJAShwg1hrhXAsgog+A2VGBHhZA6htgbB/hOgdg7hBARhhhhgTBqB9BEAVgbgrh+hTBchsg/AHhCgUgBAlhe" &
 +"hcA1AqhkBsA1iOBqPEgJhpBIATA+gfAvgWgnApA3gYASB725he22BXgJh3gCAggiAQhVBWBWBKAog/ByhBBhAhA61gAvggBmAiBVgRLNgYAPhvAqgth1gnhLAAhFmbhcguBugaBPgBAwAyAyBiBHAOB/gGgQAFBJgbgNB/hR/fB+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0hNgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc40G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQikDlE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC+iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQY" &
 +"IE0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHEDwRAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ0CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGgTBkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE="
oSchedule.Calendar.Selection = "05/24/2012"
oSchedule.DisplayGroupingButton = true
oSchedule.ShowGroupingEvents = true
var_Groups = oSchedule.Groups
	var_Group = var_Groups.Add(1,"<c><b>Group</b><br><c><img>pic1</img>")
		var_Group.Visible = true
		var_Group.EventBackColor = 0x808080
	var_Group1 = var_Groups.Add(2,"<c><b>Group</b><br><c><img>pic2</img>")
		var_Group1.Visible = true
		var_Group1.EventBackColor = 0xff
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.GroupID = 1]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.GroupID = 2]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.GroupID = 1]
	endwith
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)
local oSchedule,s,var_Calendar,var_CopyTo,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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)
local oSchedule,var_Calendar,var_CopyTo,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.OnResizeControl = 768 /*exChangePanels | exHideSplitter*/
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "01/01/2012"
	// var_Calendar.SelectDate("01/01/2012") = false
	with (oSchedule)
		TemplateDef = [dim var_Calendar]
		TemplateDef = var_Calendar
		Template = [var_Calendar.SelectDate(#1/1/2012#) = False]
	endwith
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)
local oSchedule,var_Calendar,var_CopyTo,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "01/01/2012"
	// var_Calendar.SelectDate("01/01/2012") = false
	with (oSchedule)
		TemplateDef = [dim var_Calendar]
		TemplateDef = var_Calendar
		Template = [var_Calendar.SelectDate(#1/1/2012#) = False]
	endwith
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

local oSchedule,var_Event,var_Event1,var_Event2,var_Event3,var_Event4,var_Event5,var_Event6,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = true
oSchedule.Calendar.Selection = "05/21/2012"
oSchedule.Calendar.Selection = "value >= #5/20/2012# and value <= #5/26/2012#"
oSchedule.ShowViewCompact = -1
oSchedule.AllowAllDayEventScroll = 4403 /*0x23 | exAllDayEventWheelScroll | exAllDayEventNoMax*/
oSchedule.BodyEventBackColor = 0x808080
oSchedule.Template = [Background(165) = 14474460] // oSchedule.Background(165) = 0xdcdcdc
var_Events = oSchedule.Events
	// var_Events.Add("05/21/2012","05/24/2012").AllDayEvent = true
	var_Event = var_Events.Add("05/21/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/23/2012").AllDayEvent = true
	var_Event1 = var_Events.Add("05/22/2012","05/23/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/24/2012").AllDayEvent = true
	var_Event2 = var_Events.Add("05/22/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event3 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event3]
		TemplateDef = var_Event3
		Template = [var_Event3.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event4 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event4]
		TemplateDef = var_Event4
		Template = [var_Event4.AllDayEvent = True]
	endwith
	// var_Events.Add("05/23/2012","05/25/2012").AllDayEvent = true
	var_Event5 = var_Events.Add("05/23/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event5]
		TemplateDef = var_Event5
		Template = [var_Event5.AllDayEvent = True]
	endwith
	// var_Events.Add("05/24/2012","05/25/2012").AllDayEvent = true
	var_Event6 = var_Events.Add("05/24/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event6]
		TemplateDef = var_Event6
		Template = [var_Event6.AllDayEvent = True]
	endwith
oSchedule.EndUpdate()

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

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.AllowSelectCreateEvent = 2

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

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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)

local oSchedule,var_Event,var_Event1,var_Event2,var_Event3,var_Event4,var_Event5,var_Event6,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHfj2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA==")
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = true
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) = 0x1000000
var_Events = oSchedule.Events
	// var_Events.Add("05/22/2012","05/23/2012").AllDayEvent = true
	var_Event = var_Events.Add("05/22/2012","05/23/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.AllDayEvent = True]
	endwith
	// var_Events.Add("05/21/2012","05/24/2012").AllDayEvent = true
	var_Event1 = var_Events.Add("05/21/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/24/2012").AllDayEvent = true
	var_Event2 = var_Events.Add("05/22/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event3 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event3]
		TemplateDef = var_Event3
		Template = [var_Event3.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event4 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event4]
		TemplateDef = var_Event4
		Template = [var_Event4.AllDayEvent = True]
	endwith
	// var_Events.Add("05/23/2012","05/25/2012").AllDayEvent = true
	var_Event5 = var_Events.Add("05/23/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event5]
		TemplateDef = var_Event5
		Template = [var_Event5.AllDayEvent = True]
	endwith
	// var_Events.Add("05/24/2012","05/26/2012").AllDayEvent = true
	var_Event6 = var_Events.Add("05/24/2012","05/26/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event6]
		TemplateDef = var_Event6
		Template = [var_Event6.AllDayEvent = True]
	endwith
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)

local oSchedule,var_Event,var_Event1,var_Event2,var_Event3,var_Event4,var_Event5,var_Event6,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = true
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) = 0xdcdcdc
var_Events = oSchedule.Events
	// var_Events.Add("05/22/2012","05/23/2012").AllDayEvent = true
	var_Event = var_Events.Add("05/22/2012","05/23/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.AllDayEvent = True]
	endwith
	// var_Events.Add("05/21/2012","05/24/2012").AllDayEvent = true
	var_Event1 = var_Events.Add("05/21/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/24/2012").AllDayEvent = true
	var_Event2 = var_Events.Add("05/22/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event3 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event3]
		TemplateDef = var_Event3
		Template = [var_Event3.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event4 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event4]
		TemplateDef = var_Event4
		Template = [var_Event4.AllDayEvent = True]
	endwith
	// var_Events.Add("05/23/2012","05/25/2012").AllDayEvent = true
	var_Event5 = var_Events.Add("05/23/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event5]
		TemplateDef = var_Event5
		Template = [var_Event5.AllDayEvent = True]
	endwith
	// var_Events.Add("05/24/2012","05/26/2012").AllDayEvent = true
	var_Event6 = var_Events.Add("05/24/2012","05/26/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event6]
		TemplateDef = var_Event6
		Template = [var_Event6.AllDayEvent = True]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Event,var_Event1,var_Event2,var_Event3,var_Event4,var_Event5,var_Event6,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = true
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) = 0x0
var_Events = oSchedule.Events
	// var_Events.Add("05/22/2012","05/23/2012").AllDayEvent = true
	var_Event = var_Events.Add("05/22/2012","05/23/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.AllDayEvent = True]
	endwith
	// var_Events.Add("05/21/2012","05/24/2012").AllDayEvent = true
	var_Event1 = var_Events.Add("05/21/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/24/2012").AllDayEvent = true
	var_Event2 = var_Events.Add("05/22/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event3 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event3]
		TemplateDef = var_Event3
		Template = [var_Event3.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event4 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event4]
		TemplateDef = var_Event4
		Template = [var_Event4.AllDayEvent = True]
	endwith
	// var_Events.Add("05/23/2012","05/25/2012").AllDayEvent = true
	var_Event5 = var_Events.Add("05/23/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event5]
		TemplateDef = var_Event5
		Template = [var_Event5.AllDayEvent = True]
	endwith
	// var_Events.Add("05/24/2012","05/26/2012").AllDayEvent = true
	var_Event6 = var_Events.Add("05/24/2012","05/26/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event6]
		TemplateDef = var_Event6
		Template = [var_Event6.AllDayEvent = True]
	endwith
oSchedule.EndUpdate()

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

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = true
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 = true
	var_Event = var_Events.Add("05/22/2012","05/23/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.AllDayEvent = True]
	endwith
	// var_Events.Add("05/21/2012","05/24/2012").AllDayEvent = true
	var_Event1 = var_Events.Add("05/21/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/24/2012").AllDayEvent = true
	var_Event2 = var_Events.Add("05/22/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event3 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event3]
		TemplateDef = var_Event3
		Template = [var_Event3.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event4 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event4]
		TemplateDef = var_Event4
		Template = [var_Event4.AllDayEvent = True]
	endwith
	// var_Events.Add("05/23/2012","05/25/2012").AllDayEvent = true
	var_Event5 = var_Events.Add("05/23/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event5]
		TemplateDef = var_Event5
		Template = [var_Event5.AllDayEvent = True]
	endwith
	// var_Events.Add("05/24/2012","05/26/2012").AllDayEvent = true
	var_Event6 = var_Events.Add("05/24/2012","05/26/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event6]
		TemplateDef = var_Event6
		Template = [var_Event6.AllDayEvent = True]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Event,var_Event1,var_Event2,var_Event3,var_Event4,var_Event5,var_Event6,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = true
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 = true
	var_Event = var_Events.Add("05/22/2012","05/23/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.AllDayEvent = True]
	endwith
	// var_Events.Add("05/21/2012","05/24/2012").AllDayEvent = true
	var_Event1 = var_Events.Add("05/21/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/24/2012").AllDayEvent = true
	var_Event2 = var_Events.Add("05/22/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event3 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event3]
		TemplateDef = var_Event3
		Template = [var_Event3.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event4 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event4]
		TemplateDef = var_Event4
		Template = [var_Event4.AllDayEvent = True]
	endwith
	// var_Events.Add("05/23/2012","05/25/2012").AllDayEvent = true
	var_Event5 = var_Events.Add("05/23/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event5]
		TemplateDef = var_Event5
		Template = [var_Event5.AllDayEvent = True]
	endwith
	// var_Events.Add("05/24/2012","05/26/2012").AllDayEvent = true
	var_Event6 = var_Events.Add("05/24/2012","05/26/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event6]
		TemplateDef = var_Event6
		Template = [var_Event6.AllDayEvent = True]
	endwith
oSchedule.EndUpdate()

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

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.AllowSelectCreateEvent = 2
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = true
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 = true
	var_Event = var_Events.Add("05/22/2012","05/23/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.AllDayEvent = True]
	endwith
	// var_Events.Add("05/21/2012","05/24/2012").AllDayEvent = true
	var_Event1 = var_Events.Add("05/21/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/24/2012").AllDayEvent = true
	var_Event2 = var_Events.Add("05/22/2012","05/24/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		Template = [var_Event2.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event3 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event3]
		TemplateDef = var_Event3
		Template = [var_Event3.AllDayEvent = True]
	endwith
	// var_Events.Add("05/22/2012","05/25/2012").AllDayEvent = true
	var_Event4 = var_Events.Add("05/22/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event4]
		TemplateDef = var_Event4
		Template = [var_Event4.AllDayEvent = True]
	endwith
	// var_Events.Add("05/23/2012","05/25/2012").AllDayEvent = true
	var_Event5 = var_Events.Add("05/23/2012","05/25/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event5]
		TemplateDef = var_Event5
		Template = [var_Event5.AllDayEvent = True]
	endwith
	// var_Events.Add("05/24/2012","05/26/2012").AllDayEvent = true
	var_Event6 = var_Events.Add("05/24/2012","05/26/2012")
	with (oSchedule)
		TemplateDef = [dim var_Event6]
		TemplateDef = var_Event6
		Template = [var_Event6.AllDayEvent = True]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 129 /*exDisableSplitter | exResizePanelRight*/
var_Calendar = oSchedule.Calendar
	var_Calendar.OnSelectDate = 1
	var_Calendar.Selection = "01/10/2001"
	var_Calendar.SingleSel = true
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 = false
oSchedule.DayViewWidth = 0
oSchedule.EndUpdate()

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

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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)
local oSchedule,var_Calendar,var_Events,var_Print

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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 = new OleAutoClient("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)
local oSchedule,var_Calendar,var_CopyTo,var_CopyTo1,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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)
local oSchedule,var_Calendar,var_Events,var_Print

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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 = new OleAutoClient("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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/29/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/04/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3"]
	endwith
oSchedule.EndUpdate()

263:
Recurrence: The last work day of the month

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/30/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "08/05/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "08/05/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "11/05/1996"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/13/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13"]
	endwith
oSchedule.EndUpdate()

258:
Recurrence: Every Friday the 13th, forever

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "02/13/1998"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "06/05/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8"]
	endwith
oSchedule.EndUpdate()

256:
Recurrence: Every Thursday in March, forever

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "03/13/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=YEARLY;BYMONTH=3;BYDAY=TH"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "05/12/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "05/19/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=YEARLY;BYDAY=20MO"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "01/01/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "03/10/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "06/10/1997"
	var_Calendar.ShowNonMonthDays = false
	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 = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=YEARLY;COUNT=10;BYMONTH=6,7"]
	endwith
oSchedule.EndUpdate()

250:
Recurrence: Every Tuesday, every other month

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/02/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/10/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/30/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/02/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/28/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;BYMONTHDAY=-3"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/22/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/07/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/05/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/05/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=MONTHLY;COUNT=10;BYDAY=1FR"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/16/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/17/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/16/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/16/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 0
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH"]
	endwith
oSchedule.EndUpdate()

237:
Recurrence: Every other day - forever

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/04/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=DAILY;INTERVAL=2"]
	endwith
oSchedule.EndUpdate()

236:
Recurrence: Daily until December 24, 1997

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/17/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Calendar.FirstWeekDay = 1
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=DAILY;UNTIL=19971224T000000Z"]
	endwith
oSchedule.EndUpdate()

235:
Recurrence: Daily for 10 occurrences

local oSchedule,var_Calendar,var_Event,var_Events,var_Highlight

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.Selection = "09/09/1997"
	var_Calendar.ShowNonMonthDays = false
	var_Calendar.MaxMonthY = 4
	var_Highlight = var_Calendar.HighlightEvent
		var_Highlight.Pattern.Type = 256
		var_Highlight.Bold = false
	var_Calendar.FirstWeekDay = 1
oSchedule.ShowViewCompact = -1
oSchedule.BorderSelStyle = -1
oSchedule.Template = [Background(81) = 15790320] // oSchedule.Background(81) = 0xf0f0f0
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.Repetitive = "FREQ=DAILY;COUNT=10"]
	endwith
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	var_Calendar.FirstWeekDay = 1
	var_Calendar.ShowWeeks = false
	var_Calendar.ShowNonMonthDays = false
oSchedule.EndUpdate()

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

local oSchedule,var_Calendar,var_Event

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.OnResizeControl = 2048
oSchedule.ShowAllDayHeader = true
var_Calendar = oSchedule.Calendar
	var_Calendar.FirstWeekDay = 1
	// var_Calendar.SelectDate("05/08/2012") = true
	with (oSchedule)
		TemplateDef = [dim var_Calendar]
		TemplateDef = var_Calendar
		Template = [var_Calendar.SelectDate(#5/8/2012#) = True]
	endwith
	var_Calendar.Select(3)
	// var_Calendar.SelectDate("05/15/2012") = false
	with (oSchedule)
		TemplateDef = [dim var_Calendar]
		TemplateDef = var_Calendar
		Template = [var_Calendar.SelectDate(#5/15/2012#) = False]
	endwith
	var_Calendar.Select(19 /*exSelectToggle | exSelectWeek*/)
oSchedule.Template = [Background(87) = 15790320] // oSchedule.Background(87) = 0xf0f0f0
oSchedule.HeaderAllDayEventHeight = -20
// oSchedule.Events.Add("05/08/2012","05/17/2012").AllDayEvent = true
var_Event = oSchedule.Events.Add("05/08/2012","05/17/2012")
with (oSchedule)
	TemplateDef = [dim var_Event]
	TemplateDef = var_Event
	Template = [var_Event.AllDayEvent = True]
endwith
oSchedule.EndUpdate()

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

local oSchedule,var_NonworkingPattern

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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)
with (oSchedule)
	TemplateDef = [dim var_NonworkingPattern]
	TemplateDef = var_NonworkingPattern
	Template = [var_NonworkingPattern.BackgroundExt = "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]"]
endwith
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)

local oSchedule,rs

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
rs = new OleAutoClient("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
? Str(oSchedule.Events.Item(1).KnownProperty(12)) 
oSchedule.EndUpdate()

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

local oSchedule,var_NonworkingPattern,var_NonworkingPattern1

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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)
with (oSchedule)
	TemplateDef = [dim var_NonworkingPattern]
	TemplateDef = var_NonworkingPattern
	Template = [var_NonworkingPattern.BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"]
endwith
// oSchedule.NonworkingPatterns.Add(1235,0).BackgroundExt = "[text=`<fgcolor 808080>just another caption`,align=0x11]"
var_NonworkingPattern1 = oSchedule.NonworkingPatterns.Add(1235,0)
with (oSchedule)
	TemplateDef = [dim var_NonworkingPattern1]
	TemplateDef = var_NonworkingPattern1
	Template = [var_NonworkingPattern1.BackgroundExt = "[text=`<fgcolor 808080>just another caption`,align=0x11]"]
endwith
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

local oSchedule,var_NonworkingPattern

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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)
with (oSchedule)
	TemplateDef = [dim var_NonworkingPattern]
	TemplateDef = var_NonworkingPattern
	Template = [var_NonworkingPattern.BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"]
endwith
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

local oSchedule

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oSchedule.Template = [Background(99) = 16777216] // oSchedule.Background(99) = 0x1000000

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

local oSchedule

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

/*
with (this.EXSCHEDULEACTIVEXCONTROL1.nativeObject)
	LayoutEndChanging = class::nativeObject_LayoutEndChanging
endwith
*/
// Notifies your application once the control's layout has been changed.
function nativeObject_LayoutEndChanging(Operation)
	oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
	? Str(Operation) 
	oSchedule.DayViewHeight = 2016
return

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	// var_Calendar.SelectDate("05/20/2012") = true
	with (oSchedule)
		TemplateDef = [dim var_Calendar]
		TemplateDef = var_Calendar
		Template = [var_Calendar.SelectDate(#5/20/2012#) = True]
	endwith
	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 = false
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

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	// var_Calendar.SelectDate("05/20/2012") = true
	with (oSchedule)
		TemplateDef = [dim var_Calendar]
		TemplateDef = var_Calendar
		Template = [var_Calendar.SelectDate(#5/20/2012#) = True]
	endwith
	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 = false
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

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
var_Calendar = oSchedule.Calendar
	// var_Calendar.SelectDate("05/20/2012") = true
	with (oSchedule)
		TemplateDef = [dim var_Calendar]
		TemplateDef = var_Calendar
		Template = [var_Calendar.SelectDate(#5/20/2012#) = True]
	endwith
	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 = false
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

local oSchedule,var_Calendar,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule,var_Calendar,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule,var_TimeScale

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule,var_Event,var_Event1,var_Event2,var_Event3,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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
		with (oSchedule)
			TemplateDef = [dim var_Event]
			TemplateDef = var_Event
			Template = [var_Event.BodyBackgroundExtValue(1,1) = 255]
		endwith
		// var_Event.BodyBackgroundExtValue(1,2) = "35%"
		with (oSchedule)
			TemplateDef = [dim var_Event]
			TemplateDef = var_Event
			Template = [var_Event.BodyBackgroundExtValue(1,2) = "35%"]
		endwith
	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%"
		with (oSchedule)
			TemplateDef = [dim var_Event1]
			TemplateDef = var_Event1
			Template = [var_Event1.BodyBackgroundExtValue(1,2) = "35%"]
		endwith
		// var_Event1.BodyBackgroundExtValue(2,1) = 65535
		with (oSchedule)
			TemplateDef = [dim var_Event1]
			TemplateDef = var_Event1
			Template = [var_Event1.BodyBackgroundExtValue(2,1) = 65535]
		endwith
	var_Event2 = var_Events.Add("01/10/2001 12:00:00","01/10/2001 14:00:00")
		var_Event2.ShowStatus = false
		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 = false
		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

local oSchedule,var_Event,var_Event1,var_Event2,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.BodyBackgroundExt = "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.BodyBackgroundExt = "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event2]
		TemplateDef = var_Event2
		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)])"]
	endwith

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
local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
var_Calendar = oSchedule.Calendar
	var_Calendar.AlignDate = false
	var_Calendar.MinMonthY = 2
	var_Calendar.MaxMonthY = 2

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

/*
with (this.EXSCHEDULEACTIVEXCONTROL1.nativeObject)
	Error = class::nativeObject_Error
endwith
*/
// Fired when an internal error occurs.
function nativeObject_Error(Error,Description)
	oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
	? Str(Description) 
return

local oSchedule,rs

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
rs = new OleAutoClient("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

/*
with (this.EXSCHEDULEACTIVEXCONTROL1.nativeObject)
	OLEStartDrag = class::nativeObject_OLEStartDrag
endwith
*/
// Occurs when the OLEDrag method is called.
function nativeObject_OLEStartDrag(Data,AllowedEffects)
	/* Data.SetData( "your data to be dragged" ) */
	oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
	AllowedEffects = 1
return

local oSchedule,var_Event

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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")
with (oSchedule)
	TemplateDef = [dim var_Event]
	TemplateDef = var_Event
	Template = [var_Event.ExtraLabel = "Click the event and wait to start dragging."]
endwith
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

local oSchedule

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule,var_Event,var_Group,var_Group1,var_NonworkingTime,var_NonworkingTime1,var_NonworkingTimes

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.BeginUpdate()
oSchedule.BodyEventBackColor = 0xf0f0f0
oSchedule.ShowGroupingEvents = true
oSchedule.DisplayGroupingButton = true
// oSchedule.Groups.Add(1,"Group 1").Visible = true
var_Group = oSchedule.Groups.Add(1,"Group 1")
with (oSchedule)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Visible = True]
endwith
// oSchedule.Groups.Add(2,"Group 2").Visible = true
var_Group1 = oSchedule.Groups.Add(2,"Group 2")
with (oSchedule)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Visible = True]
endwith
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)
	with (oSchedule)
		TemplateDef = [dim var_NonworkingTime]
		TemplateDef = var_NonworkingTime
		Template = [var_NonworkingTime.GroupID = 1]
	endwith
	// 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)
	with (oSchedule)
		TemplateDef = [dim var_NonworkingTime1]
		TemplateDef = var_NonworkingTime1
		Template = [var_NonworkingTime1.GroupID = 2]
	endwith
// 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")
with (oSchedule)
	TemplateDef = [dim var_Event]
	TemplateDef = var_Event
	Template = [var_Event.GroupID = 1]
endwith
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
/*
with (this.EXSCHEDULEACTIVEXCONTROL1.nativeObject)
	DblClick = class::nativeObject_DblClick
endwith
*/
// Occurs when the user dblclk the left mouse button over an object.
function nativeObject_DblClick(Shift,X,Y)
	oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
	? "DblClick " 
	? Str(X) 
	? Str(Y) 
return

local oSchedule,var_Event,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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 = 0xff
	var_Event = var_Events.Add("05/24/2012 10:45:00","05/24/2012 12:30:00")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.StatusColor = 255]
	endwith
	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

local oSchedule,var_Events,var_TimeScale

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
oSchedule.DayEndTime = "13:00"
var_TimeScale = oSchedule.TimeScales.Add("+3:00")
	var_TimeScale.AlignLeft = true
	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

/*
with (this.EXSCHEDULEACTIVEXCONTROL1.nativeObject)
	AnchorClick = class::nativeObject_AnchorClick
endwith
*/
// Occurs when an anchor element is clicked.
function nativeObject_AnchorClick(AnchorID,Options)
	oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
	? Str(AnchorID) 
	? Str(Options) 
return

local oSchedule,var_Event,var_Event1,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.LongLabel = "<%=%256%><br><a 1234;option 1>more ...</a>"]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.LongLabel = "<%=%256%><br><a 1235;option 2>more ...</a>"]
	endwith

204:
Can I have multiple months in the calendar section

local oSchedule,var_Calendar

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule,var_Event,var_Event1,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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

local oSchedule,var_Event,var_Event1,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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")
	with (oSchedule)
		TemplateDef = [dim var_Event]
		TemplateDef = var_Event
		Template = [var_Event.UserData = 1234]
	endwith
	// 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")
	with (oSchedule)
		TemplateDef = [dim var_Event1]
		TemplateDef = var_Event1
		Template = [var_Event1.UserData = 1235]
	endwith

201:
Can you add text with links in the event

/*
with (this.EXSCHEDULEACTIVEXCONTROL1.nativeObject)
	AnchorClick = class::nativeObject_AnchorClick
endwith
*/
// Occurs when an anchor element is clicked.
function nativeObject_AnchorClick(AnchorID,Options)
	oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
	? Str(AnchorID) 
	? Str(Options) 
return

local oSchedule,var_Event,var_Event1,var_Events

oSchedule = form.EXSCHEDULEACTIVEXCONTROL1.nativeObject
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