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)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.SelectEventStyle = 48
		.AllowAllDayEventScroll = 4416 ' AllDayEventScrollEnum.exAllDayEventWheelScroll Or AllDayEventScrollEnum.exAllDayEventMax4
		.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 `,` ) ) %>"
		.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` ) %>"
		.Calendar.Selection = #1/10/2001#
		.DisplayGroupingButton = True
		.ShowGroupingEvents = True
		.HeaderGroupHeight = 1
		.ShowAllDayHeader = True
		.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
		With .Groups
			With .Add(1,"Group 1")
				.Title = "First"
				.Visible = True
			End With
			With .Add(2,"Group 2")
				.Title = "Second"
				.Visible = True
			End With
		End With
		With .Events
			.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).GroupID = 1
			.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).GroupID = 2
			With .Add(#1/10/2001#,#1/10/2001#)
				.GroupID = 1
				.AllDayEvent = True
			End With
			With .Add(#1/10/2001#,#1/10/2001#)
				.GroupID = 2
				.AllDayEvent = True
			End With
			With .Add(#1/10/2001#,#1/10/2001#)
				.GroupID = 2
				.AllDayEvent = True
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.SelectEventStyle = 48
		.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 `,` ) %>"
		.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` ) %>"
		.Calendar.Selection = #1/10/2001#
		.DisplayGroupingButton = True
		.ShowGroupingEvents = True
		.HeaderGroupHeight = 1
		.ShowAllDayHeader = True
		.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
		With .Groups
			With .Add(1,"Group 1")
				.Title = "First"
				.Visible = True
			End With
			With .Add(2,"Group 2")
				.Title = "Second"
				.Visible = True
			End With
		End With
		With .Events
			.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).GroupID = 1
			.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).GroupID = 2
			With .Add(#1/10/2001#,#1/10/2001#)
				.GroupID = 1
				.AllDayEvent = True
			End With
			With .Add(#1/10/2001#,#1/10/2001#)
				.GroupID = -1
				.AllDayEvent = True
			End With
			With .Add(#1/10/2001#,#1/10/2001#)
				.GroupID = 2
				.AllDayEvent = True
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.Calendar.Selection = #5/24/2012#
		.DefaultEventLongLabel = "<%=%><%=%5%><br><%=%256%>"
		With .Events
			.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 10:00:00 AM#).Caption = "textzeile1<br>textzeile2<br>textzeile3"
			.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 11:00:00 AM#).Caption = "textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.TimeScales.Item(0).Visible = False
		.OnResizeControl = 2048
		.ShowViewCompact = -1
		With .Calendar
			.Selection = #5/24/2012#
			.Select 2
		End With
		With .Events
			.Add #5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#
			.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).ShowStatus = False
			.Add #5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #5/21/2012#
			.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
		End With
		.OnResizeControl = 768 ' OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
		.ScrollBars = 2
		.ShowViewCompact = 1
		.AllowMoveSchedule = 0
		.AllowResizeSchedule = 0
		.AllowToggleSchedule = 0
		.AllowExchangePanels = 0
		.AllowMoveTimeScale = 0
		.AllowResizeTimeScale = 0
		.AllowMultiDaysEvent = False
		.Background(36) = .Background(37)
		.TimeScales.Item(0).MinorTimeRuler = "00:10"
		.DayStartTime = "10:00"
		.DayEndTime = "14:00"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.OnResizeControl = 2048
		.ShowAllDayHeader = True
		.Calendar.Selection = #5/21/2012#
		.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
		.ShowViewCompact = -1
		.ScrollBars = 2
		With .Events
			.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
			.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.SelectDate(#5/20/2012#) = True
			.Select 5
		End With
		.OnResizeControl = 768 ' OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
		.ScrollBars = 0
		.ShowViewCompact = 1
		.AllowMoveSchedule = 0
		.AllowResizeSchedule = 0
		.AllowToggleSchedule = 0
		.AllowExchangePanels = 0
		.AllowMoveTimeScale = 0
		.AllowResizeTimeScale = 0
		.AllowMultiDaysEvent = False
		.Background(36) = .Background(37)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.OnResizeControl = 768 ' OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
		.Calendar.Selection = #6/27/2012#
		With .MarkZones.Add("zoneA",#6/27/2012 9:00:00 AM#,#6/27/2012 11:00:00 AM#)
			.Pattern.Type = 0
			.LongLabel = "Yellow"
			.BackColor = RGB(255,255,0)
		End With
		With .MarkZones.Add("zoneB",#6/27/2012 0:00:00 PM#,#6/27/2012 1:30:00 PM#)
			.Pattern.Type = 0
			.LongLabel = "Green"
			.BackColor = RGB(0,255,0)
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.Calendar.Selection = Schedule1.ExecuteTemplate("#5/24/2012#")
		With .MarkTimes
			With .Add("timer",Schedule1.ExecuteTemplate("#5/24/2012 11:35#"))
				.Movable = True
				.LineColor = RGB(0,0,255)
				.StatusEventBackColor = RGB(0,0,255)
				.TimeScaleLineColor = RGB(0,0,255)
				.TimeScaleLabel = "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

287:
How do I display a picture with transparency

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Schedule1_PictureClick(Key)
	With Schedule1
		alert( Key )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.ShowSelectEvent = False
		.Calendar.Selection = #5/24/2012#
		With .Pictures
			.Add "pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN" & _
	"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" & _
	"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" & _
	"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" & _
	"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" & _
	"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" & _
	"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" & _
	"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" & _
	"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" & _
	"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" & _
	"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" & _
	"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" & _
	"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" & _
	"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" & _
	"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" & _
	"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" & _
	"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" & _
	"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" & _
	"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" & _
	"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" & _
	"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" & _
	"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" & _
	"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" & _
	"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" & _
	"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" & _
	"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" & _
	"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" & _
	"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" & _
	"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" & _
	"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" & _
	"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" & _
	"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" & _
	"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" & _
	"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" & _
	"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" & _
	"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" & _
	"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" & _
	"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" & _
	"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAAChp" & _
	"AkgiAggqAsAEhigrAkgmASAygKB/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZ" & _
	"AghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+Bkglh+h6i4hfh7hehygvgMB9hPhEh9gXh/AKgihUhBh/A1hwA1gwAdh8AS" & _
	"g4AEB+ADh8AAB+AFh8AThHBxg7B4BmhFBZABAABjgbgwh2gBg4A8grArB/3UgDgQBfgzhpBzhpgUhOYogKBlBZB+ARgAA+NxgDhZgWBcgKg9BfgjBRhogngj4zBCg6Af" & _
	"ApAzBwB+OiBtA2AbA/hHqYg6ADBZBMBNgfgfAfBfByh4g8BUAiAkgyBMBAg4AcA+BsgyAZBGgRgFA/gbAIh/h6h2AMh/huheg9hbB6h6g6hJhA1zAc5RhhgN5TBLASB3" & _
	"gIXagQAMAGBdAghJhUAvhahohBAiBshzBzBTB4A9AzhTgDh9AOAZBjBfAPAOAeA2ZlBKAJB61xhBE+gmhKATiWhnBvhlhrAcgMghhGg2hBAQA4B85xBWBQBQXiBIAcho" & _
	"hkhih/gN36hyBqhiDRgABQgoB0AJAKBvAbAkAxhlBzAVgVAVBJA2gbANg5gdAOAWBrh2gzAW6HBIiagwh9hRhiBTBGAVgAgNB3g5giB/grARBlA6B/gsBhhjaTB2A0Aa" & _
	"BQhahah6hWBVBVBlAUB+hNAEh2BVAtkNhSgFBxAAOjBOg2gxBhBTgnAzB9ADABAAh/BohRgjgzBPhrhVgaAaAagihWArSxA0gGhzB3gBhgAdhVPTgOhgA8gShjAsgcgj" & _
	"hUhcBdg+zcBshsgsgtgvAvAPA5hdguBWBUs1LxBbh7gsBahLhzBtjjBpg9AABDgjA6hVBtB0hygt7IAhAz7Jg3AkgkhEtvh5hYhRBhAhBzB6g9AsgwA3hng0AFgNB6hH" & _
	"B7hRBrgxAcBaAGVWhYgehXgjhLgcBvBththxhd7egugB7gBThoAzh57igHA5A3BYgsW8gshMgiAgBZgQh0AKghA3hLsfAGAwAWB0ARgagNBXhWBWAEB+7yBTga7zhpB6" & _
	"BqBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+g6B8AsBoA+B6gGgGgxBTB6hVA2h2ACZYAxhSAAhIASB0gn" & _
	"gQAphyg0hf3pAJgrAMBwg4BZAYgVAihihKgVhzgMBhg/h9AAAqBRh0BbgTsbgHhwAbhFATANhNBMhMhYgwhlhihRAThT6WBahYh6AzhZgLBAA7h6ALhJgLBZBnhzhthA" & _
	"hAhGB7h7htOfA0hzh4gxhJgBg6hThzBlg4hchyBFc/AsA0hIBihGEnB8BQgvAkgBggAhAmBvBrgngNBGhTgTAThWg1B5gsgAhABRBTgZB+AYAZBxBMBMhPBbJ9BohlhI" & _
	"B/Awh+g/gOAAAuBhhBhUB2gXBSgagKgXgXAXAtA5AXAdBvhCBJBKgrgqBEAHhjBjhO7dBthhBGh7B7BaAdgAzWgxBthXBTACAoAuAuAOBBBxgXgpF2AFhEhtgHgDACg1" & _
	"AfARAiVxAHA4Af9zhc0CB3BOAoATApBWhCp0gJA+hTA7gnAxhWgEhqgEgQB+BzBweFANBGBahVgZB6oehXBwBrAphiAkBCAhhbB0AEBLA3guBfg/AtArgvgXhVGUhfBP" & _
	"hwBlHFBYhcBlh0AxAYgb6phyA0A3g3hPgAAEA9ACgpgqBNAPAPAWBuB1B1BVBUgNBbgvBUhvgPhqgdheBoBxgUAFgiAsAPgN8VhvhxBWg4ANhRBSA+hNB8AwASAjh+B8" & _
	"B8AcAMhMg3A0DThhgxhRgGBahxhggBApBEWFBmhS+/BBBhhwgIB4BgAYAJhJgOA2BDARgAhmF6A4gGB8Bo/Jgrg/Bfh/hXBnA8gOAEAWgZAUAIH8ApAshmA8Bjgcg5/U" & _
	"gehh/WB3gxhNhugiAaA7AcBFgcgRADhSBWAThPBzgyBPALgSAABHABBRhCA72hBpBpApA/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9" & _
	"iNBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69" & _
	"iWxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2" & _
	"HCUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+R" & _
	"YOEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgN" & _
	"ACNAAEkRROEQrhCGAgkBA"
		End With
		With .Events
			.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).Pictures = "pic1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Schedule1_AddEvent(Ev)
	' Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.SelectEventStyle = 48
		.Calendar.Selection = #1/10/2001#
		.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
		.StatusEventSize = 0
		.DefaultEventPadding(-1) = 4
		With .Events
			.Add #1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#
			.Add #1/10/2001 9:00:00 AM#,#1/10/2001 1:00:00 PM#
			.Add #1/10/2001 0:30:00 PM#,#1/10/2001 1:00:00 PM#
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.SelectEventStyle = 48
		.Calendar.Selection = #1/10/2001#
		.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
		.StatusEventSize = 0
		.DefaultEventPadding(-1) = 4
		With .Events
			.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
			.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 1:00:00 PM#).BodyBackgroundExt = "[frame=RGB(128,128,128),framethick]"
			.Add(#1/10/2001 0:30:00 PM#,#1/10/2001 1:00:00 PM#).BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.Calendar.Selection = #5/24/2012#
		.DisplayGroupingButton = True
		.ShowGroupingEvents = True
		With .Groups
			With .Add(1,"Group A")
				.Caption = "<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland"
				.Visible = True
				.EventBackColor = RGB(128,128,128)
			End With
			With .Add(2,"Group B")
				.Caption = "<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia"
				.Visible = True
				.EventBackColor = RGB(255,0,0)
			End With
		End With
		With .Events
			.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).GroupID = 1
			.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 2
			.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#).GroupID = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.HTMLPicture("pic1") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN" & _
	"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" & _
	"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" & _
	"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" & _
	"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" & _
	"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" & _
	"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" & _
	"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" & _
	"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" & _
	"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" & _
	"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" & _
	"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" & _
	"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" & _
	"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" & _
	"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" & _
	"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" & _
	"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" & _
	"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" & _
	"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" & _
	"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" & _
	"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" & _
	"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" & _
	"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" & _
	"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" & _
	"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" & _
	"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" & _
	"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" & _
	"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" & _
	"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" & _
	"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" & _
	"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" & _
	"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" & _
	"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" & _
	"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" & _
	"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" & _
	"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" & _
	"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" & _
	"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" & _
	"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAACB5" & _
	"gkgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhh" & _
	"AEA/ABRgBIhQAFgTgQhFARAEgsgkhngmAMAdhJh6A3gdBUhXBHhzhaB5hFB1HEgNgasJAOB1Bq3OB3Aeh3vth3A9gSgkh/g5hJ01A/hthbB9hQB/gCB4DPgCA9BAAeBY" & _
	"AGh2AAhvgBAvhkBZBOBiB5gsB2gsACBwB8AFBWBegGA6AOLkgvgiBvAABIhvh/AnAvhUhShIBmgzBRhLAyg+gDABB3gBgOhAA6AmAuBDBvA7hTA0hfAagfgfhXhrB5A4" & _
	"gyACAHAHgHhdh+A/B/gTh8AcAvBlhgOnhfBngyAZK2A4BMAlgqBohVAJAUAKAFALgaAmgthBA7AlhigLh/ghBAA0LxBchch8g6A7g7hbh3B+heBBBgB3B3A3ARhtBLgs" & _
	"BfgXBXh5A/g+B/hqBzh5heh0BagohIgBg4B/ApAatAg6BdBBBWBrhMA8AbgGAhhlByg5AvB+gzhFhihxBxghAjgeBlgEByB5h8g5gMA8BQgtBRAGh6B7gjgTZzANArAr" & _
	"grh+hquoAlhSgpB5B6B6A6BYBb57g858hcghAHhbAvhWhMhKAkBeKBguh/hRgNAjAjgjh6h0BshZg7AWALBZhD6KvyAtgtg7husuhJhJh7gYAzAihRhohJBnBtBGgNg9" & _
	"h3A4hogfgcAcA8ApBmBPBnhZAEAwALBngwBtp5gYAZgZhJg9h6BpBSgxA1g1hVga6XgsA2A3g3wIA9AR6pA9ARBIgYBnhjhxgTBRBIB2h3B0gYhuBxhRAHhPgnhciZh1" & _
	"gCAzAEgGBWBdADgPgoA/gXgIAEAuAKBbA+hRBBhRBohSgUAygAgIghgTh+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5" & _
	"hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQ" & _
	"BShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7" & _
	"B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAk" & _
	"B6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChC" & _
	"gCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh2" & _
	"77ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hh" & _
	"gygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0" & _
	"A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAb" & _
	"BmgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAk" & _
	"hhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5" & _
	"EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ="
		.HTMLPicture("pic2") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN" & _
	"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" & _
	"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" & _
	"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" & _
	"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" & _
	"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" & _
	"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" & _
	"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" & _
	"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" & _
	"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" & _
	"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" & _
	"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" & _
	"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" & _
	"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" & _
	"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" & _
	"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" & _
	"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" & _
	"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" & _
	"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" & _
	"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" & _
	"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" & _
	"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" & _
	"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" & _
	"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" & _
	"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" & _
	"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" & _
	"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" & _
	"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" & _
	"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" & _
	"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" & _
	"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" & _
	"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" & _
	"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" & _
	"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" & _
	"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" & _
	"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" & _
	"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" & _
	"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" & _
	"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADBn" & _
	"gkgiAggqAsAEhiiig2AqUgBPA5hnB3Bshug3A9g7BbhthqALPBglN0gCgUoQh4AQAIgAgVgTAhBEAIBYACBIhEB4hggoASBiBKBsBJARRDhwBkgMABBrAQADA+AUAlAm" & _
	"hGBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/g/h5hvgzAMB9hPgNh7gnh6h1vtAIA9hVAggVggAbAoWr" & _
	"gAB1ABhGhBg/AAg+hng4huAAB9BjhbATiLhihNgQB2gegoBkgxrEgxAQAQBGgABpAdgJgfgfhpgRBWh8h+tWgmhpgXAABgAzuAYRAhAtAEhfBVhVBVA/BsLNAWAyBpAZ" & _
	"hRgChhBwg4BUjtB/LiAehMgCAeBwg+B9hiY9g7BThpgkgXAlA0AMgAgCBBhghshRAUBbBBBthOhYBxgvh/BgANAOgbg3hvAuAvgvAvAXBjhFgkB1hBADgHgPAkATBJh0" & _
	"gWAbBcgzgZA75YBbhUhWBaBqBegxhjgHAEg9hcBMg8BQg6V8h1gegPBXhOBjA0gAgkX2AFhggphNBmBOB+ZSgDBxBdAdAdhihWgagahXBdg7h3gzB6B6h6BvBmhIgkAy" & _
	"A6uihKAGhAggBQAoAIBCBJgwAZBigZhTANhz5+A1hs5/g9A3g3hXhEAgBygXAuhdAyAshaA0AohiX/A1h0h8BThzheAFgLAWAcA9h/B+A8hOh/ApgxAABAh7gIgHB6g7" & _
	"BeBABghggghfBWhWgmgCAYADBrgYAJg9AAhehgB5hGBj6KBbAbA1g/21gEgQBMBs40AHgOAeB0AV6oAphxAyhiBHhghbhuoEB/AgA5gUgAAhBQhoBPhMBHgCgPBpBEAq" & _
	"gqAqBcBIg9guArArALAZgEABBMBqlEAzAohGQ8gAgjACgASQq7hNAvBvhoBwBhhfAmAQBfKYg7gEAgBBAFhQBuBFhcg7g0s6gSMxhhAageBgB4BEAHgjBKBJhOhmh2A7" & _
	"V4jtBGAuAogcA1hLAlAQKehwBFhdBxgshXgrgUgUAUAkBzhHBhAhhDgHA+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQ" & _
	"BSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hH" & _
	"APgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+AFh0hMAXgvhfZVhqBrglglASBhAQhkAMBVARg9hUhdA9AVARBlhuBkgJgTgOAe8zBLBwhQ" & _
	"gQhp7dhXhtBfTJBJBFBFhFhKhyhlhLhDgUAfBkARB0gyBhBpBrAKAAAwAGATAZhb9FBNhQgeFVgNBGhDgjhchnhzBmBMgJh0h1h1gZgngmgmhigHAAgFhZBthMAhhshy" & _
	"gEgCAygFnlB7AoBIAjgbg0BRACgKAihchLgGAwAvguguhHBGBJgzDtB9BzAWgtgBBwAwgiBJhAgAAyhChTAQglg0AHgfASAXhNBTAkArtGhLAAApgtATBlhSA/gAAMAS" & _
	"B/AMA9B9HUhPAyBzBzgrhWBIYwhVByBhgjhHB8ArBXgsgJgRAqhEABhrA4hxhDAygXBBBXheBRARAGAwgmBBgoBZBgBVh1hrAmgtAWALBO8sBkh5BnBPgPgkhLAEgqgB" & _
	"hjBihKAoB2goBgklgfBdBfgxgyhcBYhYg4hJBgAMg2hkhJAShwg1hrhXAsgog+A2VGBHhZA6htgbB/hOgdg7hBARhhhhgTBqB9BEAVgbgrh+hTBchsg/AHhCgUgBAlhe" & _
	"hcA1AqhkBsA1iOBqPEgJhpBIATA+gfAvgWgnApA3gYASB725he22BXgJh3gCAggiAQhVBWBWBKAog/ByhBBhAhA61gAvggBmAiBVgRLNgYAPhvAqgth1gnhLAAhFmbhc" & _
	"guBugaBPgBAwAyAyBiBHAOB/gGgQAFBJgbgNB/hR/fB+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0" & _
	"hNgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc" & _
	"40G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQik" & _
	"DlE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC" & _
	"+iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQY" & _
	"IE0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHED" & _
	"wRAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ" & _
	"0CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGg" & _
	"TBkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE="
		.Calendar.Selection = #5/24/2012#
		.DisplayGroupingButton = True
		.ShowGroupingEvents = True
		With .Groups
			With .Add(1,"<c><b>Group</b><br><c><img>pic1</img>")
				.Visible = True
				.EventBackColor = RGB(128,128,128)
			End With
			With .Add(2,"<c><b>Group</b><br><c><img>pic2</img>")
				.Visible = True
				.EventBackColor = RGB(255,0,0)
			End With
		End With
		With .Events
			.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).GroupID = 1
			.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).GroupID = 2
			.Add(#5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#).GroupID = 1
		End With
		.HeaderGroupHeight = -1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.OnResizeControl = 768 ' OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
		With .Calendar
			.Selection = "#1/1/2016#"
			.Selection = "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))"
		End With
		.BorderSelStyle = -1
		.ShowViewCompact = -1
		With .Events
			.Add #1/10/2016 8:30:00 AM#,#1/10/2016 2:30:00 PM#
			.Add #1/11/2016 9:30:00 AM#,#1/11/2016 11:30:00 AM#
			.Add #1/15/2016 10:30:00 AM#,#1/15/2016 11:30:00 AM#
		End With
		s = .Calendar.Selection
		.Calendar.Selection = "0"
		var_CopyTo = .CopyTo("c:/temp/test.png")
		alert( "Look for c:/temp/test.png file" )
		.Calendar.Selection = s
	End With
End Function
</SCRIPT>
</BODY>

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)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.OnResizeControl = 768 ' OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
		With .Calendar
			.Selection = #1/1/2012#
			.SelectDate(#1/1/2012#) = False
		End With
		With .Events
			.Add #1/1/2012 8:30:00 AM#,#1/1/2012 9:30:00 AM#
			.Add #1/1/2012 8:35:00 AM#,#1/1/2012 9:35:00 AM#
			.Add #1/1/2012 10:30:00 AM#,#1/1/2012 0:30:00 PM#
		End With
		var_CopyTo = .CopyTo("c:/temp/test.png")
		alert( "Look for c:/temp/test.png file" )
	End With
End Function
</SCRIPT>
</BODY>

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)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		With .Calendar
			.Selection = #1/1/2012#
			.SelectDate(#1/1/2012#) = False
		End With
		With .Events
			.Add #1/1/2012 8:30:00 AM#,#1/1/2012 9:30:00 AM#
			.Add #1/1/2012 8:35:00 AM#,#1/1/2012 9:35:00 AM#
			.Add #1/1/2012 10:30:00 AM#,#1/1/2012 0:30:00 PM#
		End With
		var_CopyTo = .CopyTo("c:/temp/test.png")
		alert( "Look for c:/temp/test.png file" )
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.AllowSelectCreateEvent = 2
		.OnResizeControl = 2048
		.ShowAllDayHeader = True
		.Calendar.Selection = #5/21/2012#
		.Calendar.Selection = "value >= #5/20/2012# and value <= #5/26/2012#"
		.ShowViewCompact = -1
		.AllowAllDayEventScroll = 4403 ' &H23 Or AllDayEventScrollEnum.exAllDayEventWheelScroll Or AllDayEventScrollEnum.exAllDayEventNoMax
		.BodyEventBackColor = RGB(128,128,128)
		.Background(165) = RGB(220,220,220)
		With .Events
			.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/24/2012#,#5/25/2012#).AllDayEvent = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

278:
Is it possible to highlight the newly created event ( runtime creation )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.AllowSelectCreateEvent = 2
	End With
End Function
</SCRIPT>
</BODY>

277:
Is it possible to select the newly created event ( runtime creation )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.AllowSelectCreateEvent = 1
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHf" & _
	"j2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA=="
		.AllowSelectCreateEvent = 2
		.OnResizeControl = 2048
		.ShowAllDayHeader = True
		.Calendar.Selection = #5/21/2012#
		.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
		.ShowViewCompact = -1
		.AllowAllDayEventScroll = 4416 ' AllDayEventScrollEnum.exAllDayEventWheelScroll Or AllDayEventScrollEnum.exAllDayEventMax4
		.Background(165) = &H1000000
		With .Events
			.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
			.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.AllowSelectCreateEvent = 2
		.OnResizeControl = 2048
		.ShowAllDayHeader = True
		.Calendar.Selection = #5/21/2012#
		.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
		.ShowViewCompact = -1
		.AllowAllDayEventScroll = 4416 ' AllDayEventScrollEnum.exAllDayEventWheelScroll Or AllDayEventScrollEnum.exAllDayEventMax4
		.Background(165) = RGB(220,220,220)
		With .Events
			.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
			.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.AllowSelectCreateEvent = 2
		.OnResizeControl = 2048
		.ShowAllDayHeader = True
		.Calendar.Selection = #5/21/2012#
		.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
		.ShowViewCompact = -1
		.AllowAllDayEventScroll = 4416 ' AllDayEventScrollEnum.exAllDayEventWheelScroll Or AllDayEventScrollEnum.exAllDayEventMax4
		.Background(165) = RGB(0,0,0)
		With .Events
			.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
			.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

273:
The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.AllowSelectCreateEvent = 2
		.OnResizeControl = 2048
		.ShowAllDayHeader = True
		.Calendar.Selection = #5/21/2012#
		.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
		.ShowViewCompact = -1
		.AllowAllDayEventScroll = 320 ' AllDayEventScrollEnum.exAllDayEventScroll Or AllDayEventScrollEnum.exAllDayEventMax4
		With .Events
			.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
			.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.AllowSelectCreateEvent = 2
		.OnResizeControl = 2048
		.ShowAllDayHeader = True
		.Calendar.Selection = #5/21/2012#
		.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
		.ShowViewCompact = -1
		.AllowAllDayEventScroll = 4416 ' AllDayEventScrollEnum.exAllDayEventWheelScroll Or AllDayEventScrollEnum.exAllDayEventMax4
		With .Events
			.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
			.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

271:
How do I disable scrolling the all-day header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.AllowSelectCreateEvent = 2
		.OnResizeControl = 2048
		.ShowAllDayHeader = True
		.Calendar.Selection = #5/21/2012#
		.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
		.ShowViewCompact = -1
		.AllowAllDayEventScroll = 0
		With .Events
			.Add(#5/22/2012#,#5/23/2012#).AllDayEvent = True
			.Add(#5/21/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/24/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/22/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/23/2012#,#5/25/2012#).AllDayEvent = True
			.Add(#5/24/2012#,#5/26/2012#).AllDayEvent = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.OnResizeControl = 129 ' OnResizeControlEnum.exDisableSplitter Or OnResizeControlEnum.exResizePanelRight
		With .Calendar
			.OnSelectDate = 1
			.Selection = #1/10/2001#
			.SingleSel = True
		End With
		.Calendar.FirstWeekDay = 1
		.ScrollBars = 0
		.ShowViewCompact = -1
		.AllowResizeSchedule = 0
		.AllowMoveSchedule = 0
		.AllowToggleSchedule = 0
		.Background(35) = .Background(34)
		.TimeScales.Item(0).AllowResize = False
		.DayViewWidth = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

269:
How do I capture the control and save it as PDF (Method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		With .Calendar
			.Selection = #6/1/2001#
			.Selection = "value in (#6/11/2001#,#6/12/2001#)"
		End With
		.DayViewWidth = 512
		.DayViewHeight = 512
		With .Events
			.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
			.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
		End With
		var_CopyTo = .CopyTo("C:/Temp/test.pdf")
		alert( "Look For: C:/Temp/test.pdf file" )
	End With
End Function
</SCRIPT>
</BODY>

268:
How do I capture the control and save it as PDF (Method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		With .Calendar
			.Selection = #6/1/2001#
			.Selection = "value in (#6/11/2001#,#6/12/2001#)"
		End With
		.DayViewWidth = 512
		.DayViewHeight = 512
		With .Events
			.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
			.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
		End With
		With CreateObject("Exontrol.Print")
			.Options = "FitToPage=On"
			.PrintExt = Schedule1.Object
			.CopyTo "C:/Temp/test.pdf"
			alert( "Look For: C:/Temp/test.pdf file" )
		End With
	End With
End Function
</SCRIPT>
</BODY>

267:
How do I capture the control and save it as an image (JPG or BMP) (Method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		With .Calendar
			.Selection = #6/1/2001#
			.Selection = "value in (#6/11/2001#,#6/12/2001#)"
		End With
		.DayViewWidth = 512
		.DayViewHeight = 512
		With .Events
			.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
			.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
		End With
		var_CopyTo = .CopyTo("C:/Temp/test.bmp")
		var_CopyTo1 = .CopyTo("C:/Temp/test.jpg")
		alert( "Look For: C:/Temp/test.* file" )
	End With
End Function
</SCRIPT>
</BODY>

266:
How do I capture the control and save it as an image (JPG or BMP) (Method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		With .Calendar
			.Selection = #6/1/2001#
			.Selection = "value in (#6/11/2001#,#6/12/2001#)"
		End With
		.DayViewWidth = 512
		.DayViewHeight = 512
		With .Events
			.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
			.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
		End With
		With CreateObject("Exontrol.Print")
			.Options = "FitToPage=On"
			.PrintExt = Schedule1.Object
			.CopyTo "C:/Temp/test.bmp"
			.CopyTo "C:/Temp/test.jpg"
			alert( "Look For: C:/Temp/test.* file" )
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/29/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/29/1997 9:00:00 AM#,#9/29/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/4/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/4/1997 9:00:00 AM#,#9/4/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

263:
Recurrence: The last work day of the month

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/30/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#8/5/1997 9:00:00 AM#,#8/5/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #8/5/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 0
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#8/5/1997 9:00:00 AM#,#8/5/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #8/5/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#8/5/1997 9:00:00 AM#,#8/5/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #11/5/1996#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#11/5/1996 9:00:00 AM#,#11/5/1996 2:00:00 PM#).Repetitive = "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/13/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/13/1997 9:00:00 AM#,#9/13/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

258:
Recurrence: Every Friday the 13th, forever

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #2/13/1998#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #6/5/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#6/5/1997 9:00:00 AM#,#6/5/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

256:
Recurrence: Every Thursday in March, forever

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #3/13/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#3/13/1997 9:00:00 AM#,#3/13/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;BYMONTH=3;BYDAY=TH"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #5/12/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#5/12/1997 9:00:00 AM#,#5/12/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #5/19/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#1/1/1997 9:00:00 AM#,#1/1/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;BYDAY=20MO"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #1/1/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#1/1/1997 9:00:00 AM#,#1/1/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #3/10/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#3/10/1997 9:00:00 AM#,#3/10/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #6/10/1997#
			.ShowNonMonthDays = False
			.MaxMonthX = 2
			.MaxMonthY = 2
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#6/10/1997 9:00:00 AM#,#6/10/1997 2:00:00 PM#).Repetitive = "FREQ=YEARLY;COUNT=10;BYMONTH=6,7"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

250:
Recurrence: Every Tuesday, every other month

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/2/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/10/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/10/1997 9:00:00 AM#,#9/10/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/30/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/3/1997 9:00:00 AM#,#9/3/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/2/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/28/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/28/1997 9:00:00 AM#,#9/28/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;BYMONTHDAY=-3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/22/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/22/1997 9:00:00 AM#,#9/22/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/7/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/7/1997 9:00:00 AM#,#9/7/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/5/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/5/1997 9:00:00 AM#,#9/5/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/5/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/5/1997 9:00:00 AM#,#9/5/1997 2:00:00 PM#).Repetitive = "FREQ=MONTHLY;COUNT=10;BYDAY=1FR"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/16/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 0
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/17/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 0
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/16/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 0
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/16/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 0
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

237:
Recurrence: Every other day - forever

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/4/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=DAILY;INTERVAL=2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

236:
Recurrence: Daily until December 24, 1997

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/17/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			.FirstWeekDay = 1
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=DAILY;UNTIL=19971224T000000Z"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

235:
Recurrence: Daily for 10 occurrences

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #9/9/1997#
			.ShowNonMonthDays = False
			.MaxMonthY = 4
			With .HighlightEvent
				.Pattern.Type = 256
				.Bold = False
			End With
			.FirstWeekDay = 1
		End With
		.ShowViewCompact = -1
		.BorderSelStyle = -1
		.Background(81) = RGB(240,240,240)
		With .Events
			.Add(#9/2/1997 9:00:00 AM#,#9/2/1997 2:00:00 PM#).Repetitive = "FREQ=DAILY;COUNT=10"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #1/1/2016#
			.FirstWeekDay = 0
			.DisplayWeekNumberAs = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #1/4/2016#
			.FirstWeekDay = 1
			.DisplayWeekNumberAs = 0
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

232:
How do I hide the week number

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.FirstWeekDay = 1
			.ShowWeeks = False
			.ShowNonMonthDays = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.OnResizeControl = 2048
		.ShowAllDayHeader = True
		With .Calendar
			.FirstWeekDay = 1
			.SelectDate(#5/8/2012#) = True
			.Select 3
			.SelectDate(#5/15/2012#) = False
			.Select 19 ' SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
		End With
		.Background(87) = RGB(240,240,240)
		.HeaderAllDayEventHeight = -20
		.Events.Add(#5/8/2012#,#5/17/2012#).AllDayEvent = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.Calendar.Selection = #5/26/2012#
		.Calendar.Selection = "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)"
		.NonworkingPatterns.Add(1234,0).BackgroundExt = "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]"
		.NonworkingTimes.Add "value = #05/25/2012#","09:00","10:00",1234
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3
		End With
		.BeginUpdate 
		.Calendar.Selection = #11/11/2013#
		.DataField(1) = "Start"
		.DataField(2) = "End"
		.DataField(11) = "Extra"
		.DataSource = rs
		alert( .Events.Item(1).KnownProperty(12) )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.Calendar.Selection = #5/25/2012#
		.NonworkingPatterns.Add(1234,6).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
		.NonworkingPatterns.Add(1235,0).BackgroundExt = "[text=`<fgcolor 808080>just another caption`,align=0x11]"
		.NonworkingTimes.Add "weekday(value) = 5","08:00","08:59:59",1234
		.NonworkingTimes.Add "weekday(value) = 5","09:00","09:59:59",1235
		.NonworkingTimes.Add "weekday(value) = 5","10:00","10:59:59",1234
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.Calendar.Selection = #5/25/2012#
		.NonworkingPatterns.Add(1234,0).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
		.NonworkingTimes.Add "weekday(value) = 5","12:00","13:00",1234
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(99) = &H1000000
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.EditContextMenuItems = "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
	End With
End Function
</SCRIPT>
</BODY>

224:
How can I lock/fix the date header, so it stays on the top while the user scrolls the chart

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Schedule1_LayoutEndChanging(Operation)
	With Schedule1
		alert( Operation )
		.DayViewHeight = 2016
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.SelectDate(#5/20/2012#) = True
			.Select 3
		End With
		.ScrollBars = 2
		.ShowViewCompact = 3
		.DayViewHeight = 2016
		.AllowMoveSchedule = 0
		.AllowResizeSchedule = 0
		.AllowToggleSchedule = 0
		.AllowExchangePanels = 0
		.AllowMoveTimeScale = 0
		.AllowResizeTimeScale = 0
		.AllowMultiDaysEvent = False
		.TimeScales.Item(0).MinorTimeRuler = "00:10"
		.DayStartTime = "00:00"
		.DayEndTime = "24:00"
		.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.SelectDate(#5/20/2012#) = True
			.Select 3
		End With
		.OnResizeControl = 768 ' OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
		.ScrollBars = 2
		.ShowViewCompact = 1
		.DayViewHeight = 2016
		.AllowMoveSchedule = 0
		.AllowResizeSchedule = 0
		.AllowToggleSchedule = 0
		.AllowExchangePanels = 0
		.AllowMoveTimeScale = 0
		.AllowResizeTimeScale = 0
		.AllowMultiDaysEvent = False
		.Background(36) = .Background(37)
		.TimeScales.Item(0).MinorTimeRuler = "00:10"
		.DayStartTime = "00:00"
		.DayEndTime = "24:00"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.SelectDate(#5/20/2012#) = True
			.Select 3
		End With
		.OnResizeControl = 768 ' OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
		.ScrollBars = 0
		.ShowViewCompact = 1
		.AllowMoveSchedule = 0
		.AllowResizeSchedule = 0
		.AllowToggleSchedule = 0
		.AllowExchangePanels = 0
		.AllowMoveTimeScale = 0
		.AllowResizeTimeScale = 0
		.AllowMultiDaysEvent = False
		.Background(36) = .Background(37)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #5/1/2012#
			.Selection = "(value >= #5/13/2012#) and (value <= #5/26/2012#)"
		End With
		With .Events
			.Add #5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#
			.Add #5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#
			.Add #5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#
			.Add #5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		With .Calendar
			.Selection = #5/24/2012#
			.MinDate = #5/13/2012#
			.MaxDate = #5/26/2012#
		End With
		With .Events
			.Add #5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#
			.Add #5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#
			.Add #5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#
			.Add #5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.DayStartTime = "00:00"
		.DayEndTime = "24:00"
		With .TimeScales.Item(0)
			.MajorTimeLabel = "<%hh%>:<%nn%>"
			.Width = 32
		End With
	End With
End Function
</SCRIPT>
</BODY>

218:
How do I show a double frame

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.SelectEventStyle = 48
		.Calendar.Selection = #1/10/2001#
		.DefaultEventLongLabel = ""
		.DefaultEventShortLabel = ""
		With .Events
			With .Add(#1/10/2001 8:00:00 AM#,#1/10/2001 10:00:00 AM#)
				.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x21,pattern=0x000,frame=RGB(0,0,0)],client[back=RGB(255,255,0),align=0x21,pattern=0x000,frame=" & _
	"RGB(0,0,0)]"
				.BodyBackgroundExtValue(1,1) = 255
				.BodyBackgroundExtValue(1,2) = "35%"
			End With
			With .Add(#1/10/2001 10:00:00 AM#,#1/10/2001 0:00:00 PM#)
				.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]"
				.BodyBackgroundExtValue(1,2) = "35%"
				.BodyBackgroundExtValue(2,1) = 65535
			End With
			With .Add(#1/10/2001 0:00:00 PM#,#1/10/2001 2:00:00 PM#)
				.ShowStatus = False
				.BodyBackgroundExt = "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(0%,0%,100%,100%),pattern=0x000,frame" & _
	"=RGB(0,0,0)]"
			End With
			With .Add(#1/10/2001 2:00:00 PM#,#1/10/2001 4:00:00 PM#)
				.ShowStatus = False
				.BodyBackgroundExt = "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(4,0%,100%-4,100%),pattern=0x000,fram" & _
	"e=RGB(0,0,0)]"
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

217:
How can I add more colors on the event

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.SelectEventStyle = 48
		.Calendar.Selection = #1/10/2001#
		With .Events
			.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).BodyBackgroundExt = "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
			.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).BodyBackgroundExt = "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
			.Add(#1/10/2001 11:00:00 AM#,#1/10/2001 2:00:00 PM#).BodyBackgroundExt = "left[33%,back=RGB(0,128,0)](top[50%,back=RGB(0,255,0)]),left[33%](top[33%,back=RGB(0,255,255)],top[33%,back=RGB(0,0,128)],clien" & _
	"t[back=RGB(0,0,255)]),client(top[25%,back=RGB(240,240,240)],top[25%,back=RGB(192,192,192)],top[25%,back=RGB(128,128,128)],client" & _
	"[back=RGB(0,0,0)])"
		End With
	End With
End Function
</SCRIPT>
</BODY>

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
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		With .Calendar
			.AlignDate = False
			.MinMonthY = 2
			.MaxMonthY = 2
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Schedule1_Error(Error,Description)
	With Schedule1
		alert( Description )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3
		End With
		.BeginUpdate 
		.Calendar.Selection = #11/11/2013#
		.DataField(1) = "Start"
		.DataField(2) = "End"
		.DataField(11) = "Extra"
		.DataSource = rs
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

214:
How can I start drag and drop an event

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Schedule1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData( "your data to be dragged" )
	With Schedule1
		AllowedEffects = 1
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.OLEDropMode = 1
		.SelectEventStyle = 48
		.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
		.DefaultEventShortLabel = .DefaultEventLongLabel
		.Calendar.Selection = #1/10/2001#
		.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
		.Events.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).ExtraLabel = "Click the event and wait to start dragging."
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.ShowHighlightDate = 4353 ' ShowHighlightDateEnum.exHighlightDateCalendarEllipticClip Or ShowHighlightDateEnum.exHighlightDateCalendarGradient Or ShowHighlightDateEnum.exShowHighlightDateCalendar
		.Calendar.Selection = #1/1/2001#
		.HighlightDate(#1/9/2001#) = 65280
		.HighlightDate(#1/17/2001#) = "65280,255"
		.HighlightDate(#1/25/2001#) = "255,65280,16711680"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.ShowHighlightDate = 49 ' ShowHighlightDateEnum.exHighlightDateVertical Or ShowHighlightDateEnum.exShowHighlightDateCalendar
		.Calendar.Selection = #1/1/2001#
		.HighlightDate(#1/9/2001#) = 65280
		.HighlightDate(#1/17/2001#) = "65280,255"
		.HighlightDate(#1/25/2001#) = "255,65280,16711680"
	End With
End Function
</SCRIPT>
</BODY>

211:
Is it possible to highlight a date in gradient

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.ShowHighlightDate = 257 ' ShowHighlightDateEnum.exHighlightDateCalendarGradient Or ShowHighlightDateEnum.exShowHighlightDateCalendar
		.Calendar.Selection = #1/1/2001#
		.HighlightDate(#1/9/2001#) = 65280
		.HighlightDate(#1/17/2001#) = "65280,255"
		.HighlightDate(#1/25/2001#) = "255,65280,16711680"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.ShowHighlightDate = 1
		.Calendar.Selection = #1/1/2001#
		.HighlightDate(#1/9/2001#) = 65280
		.HighlightDate(#1/17/2001#) = "65280,255"
		.HighlightDate(#1/25/2001#) = "255,65280,16711680"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.ShowHighlightDate = 3
		.Calendar.Selection = #1/25/2001#
		.HighlightDate(#1/9/2001#) = 65280
		.HighlightDate(#1/17/2001#) = "65280,255"
		.HighlightDate(#1/25/2001#) = "255,65280,16711680"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.BodyEventBackColor = RGB(240,240,240)
		.ShowGroupingEvents = True
		.DisplayGroupingButton = True
		.Groups.Add(1,"Group 1").Visible = True
		.Groups.Add(2,"Group 2").Visible = True
		.Calendar.Selection = #5/25/2012#
		.NonworkingPatterns.Add 1234,11
		With .NonworkingTimes
			.Add "1","00:00","08:45",1234
			.Add("weekday(value) = 5","10:00","11:45",1).GroupID = 1
			.Add("weekday(value) = 5","12:00","13:00",1234).GroupID = 2
		End With
		.Events.Add(#5/25/2012 9:30:00 AM#,#5/25/2012 1:00:00 PM#).GroupID = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Schedule1_DblClick(Shift,X,Y)
	With Schedule1
		alert( "DblClick " )
		alert( X )
		alert( Y )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.BeginUpdate 
		.Calendar.Selection = #5/24/2012#
		With .Events
			.Add #5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#
			.Add(#5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#).StatusColor = RGB(255,0,0)
			.Add #5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#
		End With
		.AllowEditEvent = 0
		.AllowToggleSchedule = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.DayEndTime = "13:00"
		With .TimeScales.Add("+3:00")
			.AlignLeft = True
			.Caption = "EST <b>+03"
		End With
		.BeginUpdate 
		.Calendar.Selection = #5/24/2012#
		.UpdateEventsLabel = "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>"
		With .Events
			.Add #5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#
			.Add #5/24/2012 10:45:00 AM#,#5/24/2012 0:30:00 PM#
			.Add #5/24/2012 11:30:00 AM#,#5/24/2012 1:30:00 PM#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

205:
Is there a way to add a hyperlink to the event that would run a report with parameters

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Schedule1_AnchorClick(AnchorID,Options)
	With Schedule1
		alert( AnchorID )
		alert( Options )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.Calendar.Selection = #6/20/2012#
		With .Events
			.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).LongLabel = "<%=%256%><br><a 1234;option 1>more ...</a>"
			.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).LongLabel = "<%=%256%><br><a 1235;option 2>more ...</a>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

204:
Can I have multiple months in the calendar section

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		With .Calendar
			.MinMonthY = 2
			.MaxMonthY = 2
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.Calendar.Selection = #6/20/2012#
		With .Events
			With .Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
				.UserData = 1234
				.ShortLabel = "<%=%256%><br>Order: <%=%6%>"
				.LongLabel = .ShortLabel
			End With
			With .Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
				.UserData = 1235
				.ShortLabel = "<%=%256%>, Order: <%=%6%>"
				.LongLabel = .ShortLabel
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.Calendar.Selection = #6/20/2012#
		.DefaultEventShortLabel = "<%=%256%><br>Order: <b><%=%6%>"
		.DefaultEventLongLabel = .DefaultEventShortLabel
		With .Events
			.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).UserData = 1234
			.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).UserData = 1235
		End With
	End With
End Function
</SCRIPT>
</BODY>

201:
Can you add text with links in the event

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Schedule1_AnchorClick(AnchorID,Options)
	With Schedule1
		alert( AnchorID )
		alert( Options )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Schedule1
		.Calendar.Selection = #6/20/2012#
		With .Events
			With .Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
				.ShortLabel = "<a 1><%=%256%></a>"
				.LongLabel = .ShortLabel
			End With
			With .Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
				.ShortLabel = "<a 2><%=%256%></a>"
				.LongLabel = .ShortLabel
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>