146:
Can I include the month's number in the date header

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1,(""[b=0],(""[b=0]/24;2[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32"
	Set ComDateHeaderField OLEexHeaderDate to "`<c><%month%> (` + (dateF(value) left 2) + `) <r><off -6><font ;6><%year%>`"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
145:
How can I display the previously/next month in the date header

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "2[b=0][bg=RGB(240,240,240)]:32,1,3[b=0][bg=RGB(240,240,240)]:32"
	Set ComDateHeaderField OLEexHeaderPrevMonth to "`<c>` + ( ( ((0:=((month(value) - 1) - 1) ) < 0 ? 11 : =:0 ) array `January February March April May June July August September October November December` split ` ` ) left 3 ) "
	Set ComDateHeaderField OLEexHeaderNextMonth to "`<c>` + ( ( ((0:=((month(value) - 1) + 1) ) = 12 ? 0 : =:0 ) array `January February March April May June July August September October November December` split ` ` ) left 3 ) "
	Send ComEndUpdate
End_Procedure
144:
How can I display the year to a different position

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "6/(1,2[bg=RGB(196,196,196)]:32,3[bg=RGB(196,196,196)]:32)"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderDate to "<c><%month%>"
	Set ComDateHeaderField (OLEexHeaderPrevYear + OLEexHeaderPrevMonth) to "<r><b><%year%>"
	Send ComEndUpdate
End_Procedure
143:
Can I display some extra text/caption on the month's header

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "("<sha ;;0>calendar"[a=17]/1),2:32,3:32"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderDate to "<c><b><%month%>"
	Send ComEndUpdate
End_Procedure
142:
How can I display no year on th month's header

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1,2:32,3:32"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderDate to "<c><b><%month%>"
	Send ComEndUpdate
End_Procedure
141:
How can I arrange the month's header ( first and last month only, prev month, next, prev year, picture, ebn, expression)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to " (( xmax * ymax ) = 1 ) ? `2[b=0][bg=0x01000000]:32,1,3[b=0][bg=0x01000000]:32` : ( ( x = 0 and y = 0 ) ? `2[b=0][bg=0x01000000]:32,1`: ( ( x = xmax - 1 and y = ymax - 1 ) ? `1,3[b=0][bg=0x01000000]:32`: `1` ) )"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%></b> <off -6><font ;7><%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
140:
How can I arrange the month's header ( first month only, prev month, next, prev year, picture, ebn, expression)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "( x = 0 and y = 0 ) ? `(2[b=0][bg=0x01000000]/3[b=0][bg=0x01000000]):32,1`: `1`"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
139:
How can I arrange the month's header ( all, left, right, prev month, next, prev year, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "(2[b=0][bg=0x01000000]/4[b=0][bg=0x01000000]):32,1,(3[b=0][bg=0x01000000]/5[b=0][bg=0x01000000]):32"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
138:
How can I arrange the month's header ( all, left, right, prev month, next, prev year, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "2[b=0][bg=0x01000000]:32,3[b=0][bg=0x01000000]:32,1,4[b=0][bg=0x01000000]:32,5[b=0][bg=0x01000000]:32"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
137:
How can I arrange the month's header ( left, right, prev month, next, prev year, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "(2[b=0][bg=0x01000000]/3[b=0][bg=0x01000000]):32,1,(4[b=0][bg=0x01000000]/5[b=0][bg=0x01000000]):32"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
136:
How can I arrange the month's header ( down, next, prev month, next, prev year, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1/16;(2[bg=0x01808080],3[bg=0x01000000])[b=15],(4[bg=0x01808080],5[bg=0x01000000])[b=15]"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
135:
How can I arrange the month's header ( down, next, prev month, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1/16;2[b=0][bg=0x01000000],3[b=0][bg=0x01000000]"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
134:
How can I arrange the month's header ( left, right center, next, prev month, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "2[b=0][bg=0x01000000],1,3[b=0][bg=0x01000000]"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
133:
How can I arrange the month's header (right up down, next, prev month, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1,(2[b=0][bg=0x01000000]/3[b=0][bg=0x01000000]):32"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
132:
How can I arrange the month's header (left, next, prev month, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "(""[b=0],(""[b=0]/24;2[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,1"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
131:
How can I arrange the month's header (left, right, next, prev month, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "(""[b=0],(""[b=0]/24;2[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,1,(""[b=0],(""[b=0]/24;3[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
130:
How can I arrange the month's header (right, next, prev month, picture, ebn)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1,(""[b=0],(""[b=0]/24;2[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
	Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
	Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
	Send Destroy to hoAppearance
	Send ComEndUpdate
End_Procedure
129:
Can I specify a different foreground color for the current month

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1,2:32,3:32"
	Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
	Send ComEndUpdate
End_Procedure
128:
How do I change the +/- when using the custom format for month's header (with no background)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1,2:32,3:32"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Send ComEndUpdate
End_Procedure
127:
How do I change the +/- when using the custom format for month's header (with background)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1,(""[b=0],(""[b=0]/24;2[b=0][bg=RGB(196,196,196)]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=RGB(196,196,196)]/""[b=0]):24,""[b=0]):32"
	Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
	Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
	Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
	Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
	Send ComEndUpdate
End_Procedure
126:
How can I arrange the month's header (right, next, prev month)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Set ComBackground OLEexDateHeader to (ComBackColor(Self))
	Set ComFirstDay to OLEMonday
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
	Set ComDrawGridLine to OLESolid
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComMarkToday to True
	Set ComAutoSize to OLEexFixedSize
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellHeight to 32
	Set ComFixedCellWidth to 32
	Set ComDateHeaderFormat to "1,(""[b=0],(""[b=0]/24;2[b=0][bg=RGB(196,196,196)]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=RGB(196,196,196)]/""[b=0]):24,""[b=0]):32"
	Send ComEndUpdate
End_Procedure
125:
How do I display the week number according, so the January 1st is in the first week

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFirstDay to OLESunday
	Set ComDisplayWeekNumberAs to OLEexSimpleWeekNumber
	Set ComShowWeeks to True
	Set ComDate to "1/1/2016"
	Send ComEndUpdate
End_Procedure
124:
How do I display the week number according to ISO8601 standard

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFirstDay to OLEMonday
	Set ComDisplayWeekNumberAs to OLEexISO8601WeekNumber
	Set ComShowWeeks to True
	Set ComDate to "1/1/2016"
	Send ComEndUpdate
End_Procedure
123:
Just seen the BackgroundExt property. Not sure what I can do with that

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellWidth to 48
	Set ComFixedCellHeight to 48
	Set ComAutoSize to OLEexFixedSize
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Set ComDate to "2/1/2014"
	Set ComShowNonMonthDays to False
	Set ComDrawGridLine to OLELargeDots
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "2/3/2014" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComBackgroundExt of hoEvent to "bottom[8,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
		Send Destroy to hoEvent
		Variant voEvent1
		Get ComAdd of hoEvents "2/4/2014" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComBackgroundExt of hoEvent1 to "bottom[100%,pattern=0x003,frame=RGB(0,0,0),framethick]"
		Send Destroy to hoEvent1
		Variant voEvent2
		Get ComAdd of hoEvents "2/5/2014" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComBackgroundExt of hoEvent2 to "top[8,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
		Send Destroy to hoEvent2
		Variant voEvent3
		Get ComAdd of hoEvents "2/10/2014" to voEvent3
		Handle hoEvent3
		Get Create (RefClass(cComEvent)) to hoEvent3
		Set pvComObject of hoEvent3 to voEvent3
			Set ComBackgroundExt of hoEvent3 to "top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client(left[10%](top[90%,back=RGB(0,0,0)]),top[30%,back=RGB(254,217,102)],client[back=RGB(123,250,212)])"
		Send Destroy to hoEvent3
		Variant voEvent4
		Get ComAdd of hoEvents "2/11/2014" to voEvent4
		Handle hoEvent4
		Get Create (RefClass(cComEvent)) to hoEvent4
		Set pvComObject of hoEvent4 to voEvent4
			Set ComBackgroundExt of hoEvent4 to "left[33%,back=RGB(0,128,0)],left[33%,back=RGB(0,255,0)],client[back=RGB(255,128,128)]"
		Send Destroy to hoEvent4
		Variant voEvent5
		Get ComAdd of hoEvents "2/12/2014" to voEvent5
		Handle hoEvent5
		Get Create (RefClass(cComEvent)) to hoEvent5
		Set pvComObject of hoEvent5 to voEvent5
			Set ComBackgroundExt of hoEvent5 to "top[33%,back=RGB(0,128,0)],left[33%,back=RGB(0,255,0)],client[back=RGB(255,128,128)](top[50%,back=RGB(0,255,255)])"
		Send Destroy to hoEvent5
		Variant voEvent6
		Get ComAdd of hoEvents "2/13/2014" to voEvent6
		Handle hoEvent6
		Get Create (RefClass(cComEvent)) to hoEvent6
		Set pvComObject of hoEvent6 to voEvent6
			Set ComBackgroundExt of hoEvent6 to "bottom[12](left[75%,back=0x01000000]),none[(0,100%-22,100%,22),text=`<sha ;;0><font ;6>75%`,align=0x11]"
		Send Destroy to hoEvent6
		Variant voEvent7
		Get ComAdd of hoEvents "2/14/2014" to voEvent7
		Handle hoEvent7
		Get Create (RefClass(cComEvent)) to hoEvent7
		Set pvComObject of hoEvent7 to voEvent7
			Set ComBackgroundExt of hoEvent7 to "top[12](left[55%,back=0x01FEFEFE]),none[(0,0,100%,12),pattern=0x000,frame=RGB(0,255,0)],none[(0,0,100%,22),text=`<sha ;;0><font ;6>55%`,align=0x11]"
		Send Destroy to hoEvent7
		Variant voEvent8
		Get ComAdd of hoEvents "2/17/2014" to voEvent8
		Handle hoEvent8
		Get Create (RefClass(cComEvent)) to hoEvent8
		Set pvComObject of hoEvent8 to voEvent8
			Set ComBackgroundExt of hoEvent8 to "bottom[16,align=0x11,text=`<fgcolor 808080><font ;6>extra`]"
		Send Destroy to hoEvent8
		Variant voEvent9
		Get ComAdd of hoEvents "2/18/2014" to voEvent9
		Handle hoEvent9
		Get Create (RefClass(cComEvent)) to hoEvent9
		Set pvComObject of hoEvent9 to voEvent9
			Set ComBackgroundExt of hoEvent9 to "root[text=`<fgcolor 808080><font ;6>extra 2`,align=0x01](bottom[16,text=`<fgcolor 808080><font ;6>extra1`,align=0x21])"
		Send Destroy to hoEvent9
		Variant voEvent10
		Get ComAdd of hoEvents "2/19/2014" to voEvent10
		Handle hoEvent10
		Get Create (RefClass(cComEvent)) to hoEvent10
		Set pvComObject of hoEvent10 to voEvent10
			Set ComBackgroundExt of hoEvent10 to "top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client[text=`<fgcolor 808080><font ;6><b>B`,align=0x22](client[text=`<fgcolor 808080><font ;6><b>A`,align=0x20](client[text=`<fgcolor 808080><font ;6><b>D`,align=0x00](client[text=`<fgcolor 808080><font ;6><b>C`,align=0x02](client))))"
			Set ComCaption of hoEvent10 to "<sha ;;0><font ;12><fgcolor FF0000><b><%day%>"
		Send Destroy to hoEvent10
		Variant voEvent11
		Get ComAdd of hoEvents "2/20/2014" to voEvent11
		Handle hoEvent11
		Get Create (RefClass(cComEvent)) to hoEvent11
		Set pvComObject of hoEvent11 to voEvent11
			Set ComBackgroundExt of hoEvent11 to "root[text=`<fgcolor 808080><b>B`,align=0x22](client[text=`<fgcolor 808080><b>A`,align=0x20])"
		Send Destroy to hoEvent11
		Variant voEvent12
		Get ComAdd of hoEvents "2/21/2014" to voEvent12
		Handle hoEvent12
		Get Create (RefClass(cComEvent)) to hoEvent12
		Set pvComObject of hoEvent12 to voEvent12
			Set ComBackgroundExt of hoEvent12 to "root[align=0,wordwrap,text=`<font ;6>This is a long story to put on your date, to break the lines. `]"
			Set ComCaption of hoEvent12 to "<b><fgcolor FFFFFF><out 1;2><font ;18><%day%>"
		Send Destroy to hoEvent12
	Send Destroy to hoEvents
	Send ComEndUpdate
End_Procedure
122:
How can I show a pattern over a date

Procedure OnCreate
	Forward Send OnCreate
	Set ComAlignmentDay to OLECenterAlignment
	Set ComFixedCellWidth to 36
	Set ComFixedCellHeight to 36
	Set ComAutoSize to OLEexFixedSize
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Set ComDate to "2/1/2014"
	Set ComShowNonMonthDays to False
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
		Variant voEvent
		Get ComAdd of hoEvents "2/3/2014" to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComBackgroundExt of hoEvent to "bottom[8,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Variant voEvents1
	Get ComEvents to voEvents1
	Handle hoEvents1
	Get Create (RefClass(cComEvents)) to hoEvents1
	Set pvComObject of hoEvents1 to voEvents1
		Variant voEvent1
		Get ComAdd of hoEvents1 "2/4/2014" to voEvent1
		Handle hoEvent1
		Get Create (RefClass(cComEvent)) to hoEvent1
		Set pvComObject of hoEvent1 to voEvent1
			Set ComBackgroundExt of hoEvent1 to "bottom[100%,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
		Send Destroy to hoEvent1
	Send Destroy to hoEvents1
	Variant voEvents2
	Get ComEvents to voEvents2
	Handle hoEvents2
	Get Create (RefClass(cComEvents)) to hoEvents2
	Set pvComObject of hoEvents2 to voEvents2
		Variant voEvent2
		Get ComAdd of hoEvents2 "2/5/2014" to voEvent2
		Handle hoEvent2
		Get Create (RefClass(cComEvent)) to hoEvent2
		Set pvComObject of hoEvent2 to voEvent2
			Set ComBackgroundExt of hoEvent2 to "top[8,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
		Send Destroy to hoEvent2
	Send Destroy to hoEvents2
	Set ComDrawGridLine to OLELargeDots
End_Procedure
121:
Can I use PNG picture files

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\card.png"
	Set ComAlignmentDay to OLELeftAlignment
	Set ComFixedCellWidth to 64
	Set ComFixedCellHeight to 48
	Set ComAutoSize to OLEexFixedSize
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComCaption of hoEvent to "<sha><b><%day%></b></sha> <r><img>pic1</img>"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
120:
Is it possible to display a custom-size picture assigned to a date

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComAlignmentDay to OLELeftAlignment
	Set ComFixedCellWidth to 64
	Set ComFixedCellHeight to 48
	Set ComAutoSize to OLEexFixedSize
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComCaption of hoEvent to "<sha><b><%day%></b></sha> <r><img>pic1</img>"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
119:
How can I assign a caption and an icon to a date

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComAlignmentDay to OLELeftAlignment
	Set ComFixedCellWidth to 48
	Set ComAutoSize to OLEexFixedSize
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComCaption of hoEvent to "<sha><b><%day%></b></sha> <r><img>1</img><off -4><sha;;0><fgcolor FF0000><font ;6>ev</sha>"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
118:
How can I assign a caption to a date

Procedure OnCreate
	Forward Send OnCreate
	Set ComAlignmentDay to OLELeftAlignment
	Set ComFixedCellWidth to 36
	Set ComAutoSize to OLEexFixedSize
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComCaption of hoEvent to "<sha><b><%day%></b><r><off -4><sha;;0><fgcolor FF0000><font ;6>ev</sha></sha> 1"
			Set ComMarker of hoEvent to True
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
117:
How do I align the day in the calendar control

Procedure OnCreate
	Forward Send OnCreate
	Set ComAlignmentDay to OLECenterAlignment
End_Procedure
116:
How do I specify a different foreground color for weekday headers (S M T W T F S)

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexDaysHeader to (RGB(255,255,255))
	Set ComBackground OLEexDaysHeaderForeColor to (RGB(255,0,0))
End_Procedure
115:
How does localization work

Procedure OnCreate
	Forward Send OnCreate
	Set ComFirstDay to (ComLocFirstDay(Self))
	Set ComMonthNames to (ComLocMonthNames(Self,Nothing))
	Set ComWeekDays to (ComLocWeekDays(Self,Nothing))
End_Procedure
114:
How can I change the control's Visual appearance

Procedure OnCreate
	Forward Send OnCreate
	Set ComVisualDesign to "gBFLBWIgBAEHhEJAEGg6EhCDC0HA0IdT/iyAjAAdcWf8YQAAAcKkEThQCCsiAMRhQBkMHhgABEIBsILBQHRCOp0OhvNwgGM+AUImMHmcHms3nM7ns/GUtmEIB0IIc2GQgFo0q1VrAygI"
End_Procedure
113:
How can I align the picture on the control's background

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperRight
End_Procedure
112:
Is it possible to place a picture on the control's background

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
	Set ComPicture to (vPicture)
End_Procedure
111:
Is it possible to specify the color or the visual appearance (EBN) for selected dates when the control has no focus

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexSelBackColorUnFocus to |CI$1000000
	Set ComBackground OLEexSelForeColorUnFocus to (RGB(0,0,0))
	Set ComHideSelection to False
End_Procedure
110:
Is it possible to specify the color for selected dates when the control loses the focus

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexSelBackColorUnFocus to (RGB(128,128,128))
	Set ComBackground OLEexSelForeColorUnFocus to (RGB(0,0,0))
	Set ComHideSelection to False
End_Procedure
109:
Can I change the visual appearance for the tooltip, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1aa80f0
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
108:
Can I change the color of the control's border (EBN files)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to (|CI$1aabbc8 + OLEEtched)
End_Procedure
107:
Is it possible to change the color for days that are not in the month

Procedure OnCreate
	Forward Send OnCreate
	Set ComFirstDay to OLEMonday
	Set ComShowNonMonthDays to True
	Set ComNonMonthDaysColor to (RGB(255,0,0))
End_Procedure
106:
How can I change the foreground color for non-working days

Procedure OnCreate
	Forward Send OnCreate
	Set ComFirstDay to OLEMonday
	Set ComNonworkingDaysForeColor to (RGB(255,0,0))
End_Procedure
105:
How do I change the appearance for the months

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexDateHeader to (RGB(0,0,128))
	Set ComBackground OLEexDateHeaderForeColor to (RGB(255,255,255))
End_Procedure
104:
How can I show the more months with its full size
Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoSize to OLEexFitClient
	Set ComMaxMonthX to 2
	Set ComMaxMonthY to 2
End_Procedure
103:
How can I show the calendar with its full size
Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoSize to OLEexFitClient
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
End_Procedure
102:
How can I hide the separator above the Today button

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexDateSeparatorBar to (ComBackColor(Self))
End_Procedure
101:
How do I limit the dates being displayed or selected

Procedure OnCreate
	Forward Send OnCreate
	Set ComMaxMonthX to 1
	Set ComMaxMonthY to 1
	Set ComShowYearScroll to False
	Set ComMinDate to "1/1/2001"
	Set ComMaxDate to "1/31/2001"
	Set ComDate to "1/1/2001"
End_Procedure
100:
How can I remove an event
Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoSize to False
	Set ComFixedCellWidth to 36
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComImage of hoEvent to 1
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Variant voEvents1
	Get ComEvents to voEvents1
	Handle hoEvents1
	Get Create (RefClass(cComEvents)) to hoEvents1
	Set pvComObject of hoEvents1 to voEvents1
		Variant vIndex
			Get ComDate to vIndex
		Send ComRemove of hoEvents1 vIndex
	Send Destroy to hoEvents1
End_Procedure
99:
How can I count the events
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComImage of hoEvent to 1
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Variant v
	Variant voEvents1
	Get ComEvents to voEvents1
	Handle hoEvents1
	Get Create (RefClass(cComEvents)) to hoEvents1
	Set pvComObject of hoEvents1 to voEvents1
		Get ComCount of hoEvents1 to v
	Send Destroy to hoEvents1
	Variant var_Count
	Move v to var_Count
End_Procedure
98:
How can I clear all events
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComImage of hoEvent to 1
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Variant voEvents1
	Get ComEvents to voEvents1
	Handle hoEvents1
	Get Create (RefClass(cComEvents)) to hoEvents1
	Set pvComObject of hoEvents1 to voEvents1
		Send ComClear of hoEvents1
	Send Destroy to hoEvents1
End_Procedure
96:
How can I assign an icon to a date

Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoSize to False
	Set ComFixedCellWidth to 36
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComImage of hoEvent to 1
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
95:
How can I enable or disable a date

Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComDisabled of hoEvent to True
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
94:
How can I mark or highlight a date

Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComMarker of hoEvent to True
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
93:
How can I assign a tooltip or a comment to a date

Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
			Set ComCommentTitle of hoEvent to "T I T L E"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
92:
How can I assign any extra data to a date
Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComUserData of hoEvent to "your data"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
91:
How can I change the background color for a date

Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComBackColor of hoEvent to (RGB(255,0,0))
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
90:
How can I change the foreground color for a date

Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComForeColor of hoEvent to (RGB(255,0,0))
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
89:
How can I draw a date as strikeout

Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComStrikeOut of hoEvent to True
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
88:
How can I underline a date

Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComUnderline of hoEvent to True
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
87:
How can I make italic a date

Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComItalic of hoEvent to True
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
86:
How can I bold a date

Procedure OnCreate
	Forward Send OnCreate
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComBold of hoEvent to True
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
85:
How can I get the last visible date being displayed in the calendar
Procedure OnCreate
	Forward Send OnCreate
	Set ComShowNonMonthDays to False
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComLastVisibleDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is the last visible date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
84:
How can I get the first visible date being displayed in the calendar
Procedure OnCreate
	Forward Send OnCreate
	Set ComShowNonMonthDays to False
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComFirstVisibleDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is the first visible date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
83:
How can I hide the ticker that's shown for dates that have a tooltip or a comment
Procedure OnCreate
	Forward Send OnCreate
	Set ComCommentBackColor to (ComBackColor(Self))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
End_Procedure
82:
How can I change the visual aspect of the dates that have a comment or a tooltip assigned

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComCommentBackColor to |CI$1000000
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
81:
How can I change the visual aspect of the dates that have a comment or a tooltip assigned
Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 11 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 1 "CP:11 4 2 -2 -2" to Nothing
	Send Destroy to hoAppearance
	Set ComCommentBackColor to |CI$1000000
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
80:
How can I change the color to highlight the dates that have a comment or a tooltip assigned

Procedure OnCreate
	Forward Send OnCreate
	Set ComCommentBackColor to (RGB(0,0,0))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
79:
How can I hide the days that are shown in gray, and doesn' belong to the month

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowNonMonthDays to False
End_Procedure
78:
How can I change the color for non working days

Procedure OnCreate
	Forward Send OnCreate
	Set ComNonworkingDays to 6
	Set ComNonworkingDaysPattern to OLEexPatternCross
	Set ComNonworkingDaysColor to (RGB(255,0,0))
End_Procedure
77:
How can I change the pattern or the style to draw the non working days

Procedure OnCreate
	Forward Send OnCreate
	Set ComNonworkingDays to 6
	Set ComNonworkingDaysPattern to OLEexPatternCross
End_Procedure
76:
How can I show or hide the non working days
Procedure OnCreate
	Forward Send OnCreate
	Set ComNonworkingDays to 0
End_Procedure
75:
How can I specify the non working days
Procedure OnCreate
	Forward Send OnCreate
	Set ComNonworkingDays to 6
End_Procedure
72:
How can I specify the min and max years to scroll within
Procedure OnCreate
	Forward Send OnCreate
	Set ComMinScrollYear to 2001
	Set ComMaxScrollYear to 2010
End_Procedure
71:
How do I let the tooltip being displayed longer

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipPopDelay to 10000
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
69:
How can I change the date that gets the focus
Procedure OnCreate
	Forward Send OnCreate
	Set ComDate to "1/1/2001"
	Set ComFocusDate to "1/2/2001"
End_Procedure
68:
How can I select a new date
Procedure OnCreate
	Forward Send OnCreate
	Set ComDate to "1/1/2001"
	Set ComValue to "1/2/2001"
End_Procedure
67:
I've seen that the width of the tooltip is variable. Can I make it larger

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipWidth to 328
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
66:
How do I disable showing the tooltip for all control
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 0
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
65:
How do I show the tooltip quicker
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
64:
How do I call your x-script language
Procedure OnCreate
	Forward Send OnCreate
	Get ComExecuteTemplate "BackColor = RGB(255,0,0)" to Nothing
End_Procedure
63:
How do I call your x-script language
Procedure OnCreate
	Forward Send OnCreate
	Set ComTemplate to "BackColor = RGB(255,0,0)"
End_Procedure
62:
Can I change the font for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Variant voStdFont
	Get ComToolTipFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Tahoma"
		Set ComSize of hoStdFont to 14
	Send Destroy to hoStdFont
	Set ComToolTipWidth to 364
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
61:
How can I change the caption of the Today's button

Procedure OnCreate
	Forward Send OnCreate
	Set ComTodayCaption to "Azi"
End_Procedure
59:
How do I unselect a date

Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleSel to False
	Set ComDate to "1/1/2001"
	Set ComSelDate to "1/2/2001"
	Set ComSelDate to "1/3/2001"
	Set ComSelDate to "1/4/2001"
	Send ComUnSelDate "1/3/2001"
End_Procedure
58:
How do I get the list of selected dates
// Fired when the selection is changed.
Procedure OnComSelectionChanged 
	Forward Send OnComSelectionChanged 
	Showln (ComSelDate(Self))
End_Procedure


57:
How do I select multiple dates

Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleSel to False
	Set ComDate to "1/1/2001"
	Set ComSelDate to "1/2/2001"
	Set ComSelDate to "1/3/2001"
	Set ComSelDate to "1/4/2001"
End_Procedure
56:
How do I get the selected date
Procedure OnCreate
	Forward Send OnCreate
	Set ComSelDate to (ComDate(Self))
End_Procedure
55:
How can I build a date expression
Procedure OnCreate
	Forward Send OnCreate
	Set ComDate to (ComDoDate(Self,2001,1,1))
End_Procedure
54:
How can I select a new date

Procedure OnCreate
	Forward Send OnCreate
	Set ComDate to (ComDoDate(Self,2001,1,1))
	Set ComSelDate to (ComDoDate(Self,2001,1,2))
End_Procedure
53:
How can I select a new date
Procedure OnCreate
	Forward Send OnCreate
	Set ComDate to "1/1/2001"
	Set ComSelDate to "1/2/2001"
End_Procedure
52:
How can I change the browsed date
Procedure OnCreate
	Forward Send OnCreate
	Set ComDate to "1/1/2001"
End_Procedure
51:
How can I show or hide the buttons that in the header

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowYearSelector to False
	Set ComShowMonthSelector to False
End_Procedure
50:
How can I show or hide the buttons that scrolls the years

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowYearSelector to False
End_Procedure
49:
How can I disable changing the month in the months selector

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowMonthSelector to False
End_Procedure
48:
How can I change the visual aspect of the selected date, using your EBN

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColor to (RGB(255,255,255))
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$1000000
	Set ComSelForeColor to (ComBackColor(Self))
End_Procedure
47:
How can I change the colors for selected dates

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelBackColor to (RGB(0,0,0))
	Set ComSelForeColor to (RGB(255,255,255))
End_Procedure
46:
How can I change the color of the line arround a month

Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawBorderLine to OLELargeDots
	Set ComBorderLineColor to (RGB(255,0,0))
End_Procedure
45:
How can I change the style of the line arround a month

Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawBorderLine to OLELargeDots
End_Procedure
44:
How can I specify the number of months being displayed
Procedure OnCreate
	Forward Send OnCreate
	Set ComShowTodayButton to False
	Set ComShowYearScroll to False
	Set ComMinMonthX to 2
	Set ComMaxMonthX to 2
	Set ComMinMonthY to 2
	Set ComMaxMonthY to 2
End_Procedure
43:
How can I lock the control, so user can't select a new date
Procedure OnCreate
	Forward Send OnCreate
	Set ComLocked to True
End_Procedure
42:
How do I change the first day of the week

Procedure OnCreate
	Forward Send OnCreate
	Set ComFirstDay to OLEMonday
End_Procedure
41:
How do I change the name of the months

Procedure OnCreate
	Forward Send OnCreate
	Set ComMonthNames to "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
End_Procedure
40:
How do I change the name of the months

Procedure OnCreate
	Forward Send OnCreate
	Set ComMonthName OLEJanuary to "Jan"
	Set ComMonthName OLEFebruary to "Feb"
	Set ComMonthName OLEMarch to "Mar"
	Set ComMonthName OLEApril to "Apr"
	Set ComMonthName OLEMay to "May"
	Set ComMonthName OLEJune to "Jun"
	Set ComMonthName OLEJuly to "Jul"
	Set ComMonthName OLEAugust to "Aug"
	Set ComMonthName OLESeptember to "Sep"
	Set ComMonthName OLEOctober to "Oct"
	Set ComMonthName OLENovember to "Nov"
	Set ComMonthName OLEDecember to "Dec"
End_Procedure
39:
How do I change the name for each week day

Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoSize to False
	Set ComFixedCellWidth to 24
	Set ComFixedCellHeight to 16
	Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
	Set ComHeaderForeColor to (RGB(255,0,0))
	Set ComHeaderBackColor to (RGB(255,255,255))
End_Procedure
38:
How can I specify the width and height for dates being displayed in the calendar
Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoSize to False
	Set ComFixedCellWidth to 22
	Set ComFixedCellHeight to 16
End_Procedure
37:
How can I specify the width and height for dates being displayed in the calendar
Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoSize to False
	Set ComFixedCellWidth to 32
	Set ComFixedCellHeight to 24
End_Procedure
36:
How do I change the appearance for dates in the calendar

Procedure OnCreate
	Forward Send OnCreate
	Set ComAppearanceDay to OLEDay3D
	Set ComBackColor to |CI$8000000f
End_Procedure
35:
How do I specify the color for the grid lines

Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLine to OLESmallDots
	Set ComGridLineColor to (RGB(255,0,0))
End_Procedure
34:
How do I draw the grid lines

Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLine to OLESmallDots
End_Procedure
33:
How do I change the foreground color for the week days and week numbers header

Procedure OnCreate
	Forward Send OnCreate
	Set ComHeaderForeColor to (RGB(255,0,0))
	Set ComShowWeeks to True
End_Procedure
32:
How do I change the background color for the week days and week numbers header

Procedure OnCreate
	Forward Send OnCreate
	Set ComHeaderBackColor to (RGB(255,0,0))
	Set ComShowWeeks to True
End_Procedure
31:
How can I show or hide the 'Today' button

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowTodayButton to False
End_Procedure
30:
How can I show or hide the scroll bar that changes the year

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowYearScroll to False
End_Procedure
29:
How can I show or hide the header that displays the months

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowMonth to False
End_Procedure
28:
How can I show or hide the header that displays the week days

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowDays to False
End_Procedure
27:
How do I show or hide the weeks

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowWeeks to True
End_Procedure
26:
How can I change the visual appearance of Today date in the calendar

Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkToday to True
	Set ComBackground OLEexMarkToday to (RGB(255,0,0))
End_Procedure
25:
How do I mark the Today date

Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkToday to True
End_Procedure
24:
How can I show the control's selection even if the control loses the focus

Procedure OnCreate
	Forward Send OnCreate
	Set ComHideSelection to False
End_Procedure
23:
How can I hide the control's selection when the control loses the focus

Procedure OnCreate
	Forward Send OnCreate
	Set ComHideSelection to True
End_Procedure
22:
How do I enable single selection
Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleSel to True
End_Procedure
21:
How do I enable multiple selection

Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleSel to False
End_Procedure
20:
How do I disable or enable the control
Procedure OnCreate
	Forward Send OnCreate
	Set ComEnabled to False
End_Procedure
19:
Can I change the forecolor for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
18:
Can I change the background color for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
17:
Can I change the default border of the tooltip, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Variant voEvents
	Get ComEvents to voEvents
	Handle hoEvents
	Get Create (RefClass(cComEvents)) to hoEvents
	Set pvComObject of hoEvents to voEvents
Variant vEvent
			Get ComDate to vEvent
				Variant voEvent
		Get ComAdd of hoEvents vEvent to voEvent
		Handle hoEvent
		Get Create (RefClass(cComEvent)) to hoEvent
		Set pvComObject of hoEvent to voEvent
			Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
		Send Destroy to hoEvent
	Send Destroy to hoEvents
	Set ComHideSelection to True
End_Procedure
16:
How can I change the visual appearance of the selected month, in the months selector, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexMonthSelect to |CI$1000000
	Set ComBackground OLEexMonthSelectForeColor to (RGB(255,0,0))
End_Procedure
15:
How can I change the visual appearance of Today date in the calendar, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexMarkToday to |CI$1000000
	Set ComBackground OLEexDropDownSelForeColor to (RGB(1,0,0))
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComMarkToday to True
End_Procedure
14:
How can I change the visual appearance of separator between calendar and 'Today' button , using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexDateSeparatorBar to |CI$1000000
End_Procedure
13:
How can I change the visual appearance of the scrolling bar for years, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackground OLEexDateScrollRange to |CI$1000000
	Set ComBackground OLEexDateScrollThumb to |CI$2000000
End_Procedure
12:
How can I change the visual appearance of 'Today' button, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackground OLEexDateTodayUp to |CI$1000000
	Set ComBackground OLEexDateTodayDown to |CI$2000000
End_Procedure
11:
How can I change the visual appearance of header , using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexDateHeader to |CI$1000000
	Set ComHeaderForeColor to (RGB(255,0,0))
End_Procedure
10:
How can I change the visual appearance of header that week numbers, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexWeeksHeader to |CI$1000000
	Set ComHeaderForeColor to (RGB(255,0,0))
	Set ComShowWeeks to True
End_Procedure
9:
How can I change the visual appearance of header that displays days, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexDaysHeader to |CI$1000000
End_Procedure
8:
How can I change the visual appearance of the drop down button, using EBN files
Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackground OLEexDropDownButtonUp to |CI$1000000
	Set ComBackground OLEexDropDownButtonDown to |CI$2000000
End_Procedure
7:
How do I change the visual appearance of the left and right buttons in the calendar's header, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexScrollLeft to |CI$1000000
	Set ComBackground OLEexScrollRight to |CI$1000000
End_Procedure
6:
How do I change the visual appearance of the up and down buttons in the calendar's header, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexScrollUp to |CI$1000000
	Set ComBackground OLEexScrollDown to |CI$1000000
End_Procedure
5:
How do I change the control's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Set ComForeColor to (RGB(255,0,0))
End_Procedure
4:
How do I change the control's background color

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColor to (RGB(200,200,200))
End_Procedure
3:
How can I change the control's font

Procedure OnCreate
	Forward Send OnCreate
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Verdana"
	Send Destroy to hoStdFont
End_Procedure
2:
How do I change the control's border, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
End_Procedure
1:
How do I remove the control's border

Procedure OnCreate
	Forward Send OnCreate
	Set ComAppearance to OLENone2
End_Procedure