Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComImageSize to 32
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 16
	Send Destroy to hoStdFont
	Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABNgCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTVJ8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQVTQcZPVhgAYYfSlMDuMYqPrCUoJYZiIAZVbuHYbR6LbBtEAKeyOaJjWTEMhSBSGDYzPDLMilOi9Lj+awAYZsEZ0XieKzjXDbcy3HatBhyYrGaZqNj8VDVX5vVrMNzhF5/FAAZUH+ZBxIkRAkiAaQxh0DonCMLAeBKKoGBCCY+HiUJaBIKIEmaM4AACRBcmmKpdAiRBCCCd5wDQGgGEEYBUBYBIgEAOAPAOAI4CQCICkAUDkgCIQHBEGwJkKAIcCICJCDecAeH+AYgFoHoBAEIA6CKAhAjgLAIAEYoIEGdxugKSI0CeC5dHiRgygyYxIlYMxGkMGJkC2CxjGidg+g2EYwlwNgNiOEJGD+EZkgQbA7RySQIDaEglAidQbBAZRAnIS4UGWCJOCoRYEHEGBHBCBARAoWYYl0QAaCkAJQCEMBNBMRB5jYZIYkCGZEAaGYAAESh2hqRJZj4WQDI2MAJx/MICh2BQpmoWAEACcA+H0A1gHqDoggWGgaFEBQBDAUoIAQAABhKGgXmiahKFABgqAAToiAABoqhaGgZCmaQgByKpBgAXZ0BwKwBi6JYqGQcIECECAqjAcAAB2K5BkaMYpimMR8F8FhsEEUBTBUBJRDgTQSESEQgEIEJEDCeA9A+A4QmAOAMm3HYvAuAorHQJY3kIgwhAAB5LhaPAdkcCp6jIGoGFuNpCjCbBRFAVATi8SwwEmNAtBCeA+jWLRwlANALnACx0CroJQACa4KyCgI=" 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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<img>1</img>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>2</img>"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<img>3</img>"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComImageSize to 16
	Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABNgCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTVJ8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQVTQcZPVhgAYYfSlMDuMYqPrCUoJYZiIAZVbuHYbR6LbBtEAKeyOaJjWTEMhSBSGDYzPDLMilOi9Lj+awAYZsEZ0XieKzjXDbcy3HatBhyYrGaZqNj8VDVX5vVrMNzhF5/FAAZUH+ZBxIkRAkiAaQxh0DonCMLAeBKKoGBCCY+HiUJaBIKIEmaM4AACRBcmmKpdAiRBCCCd5wDQGgGEEYBUBYBIgEAOAPAOAI4CQCICkAUDkgCIQHBEGwJkKAIcCICJCDecAeH+AYgFoHoBAEIA6CKAhAjgLAIAEYoIEGdxugKSI0CeC5dHiRgygyYxIlYMxGkMGJkC2CxjGidg+g2EYwlwNgNiOEJGD+EZkgQbA7RySQIDaEglAidQbBAZRAnIS4UGWCJOCoRYEHEGBHBCBARAoWYYl0QAaCkAJQCEMBNBMRB5jYZIYkCGZEAaGYAAESh2hqRJZj4WQDI2MAJx/MICh2BQpmoWAEACcA+H0A1gHqDoggWGgaFEBQBDAUoIAQAABhKGgXmiahKFABgqAAToiAABoqhaGgZCmaQgByKpBgAXZ0BwKwBi6JYqGQcIECECAqjAcAAB2K5BkaMYpimMR8F8FhsEEUBTBUBJRDgTQSESEQgEIEJEDCeA9A+A4QmAOAMm3HYvAuAorHQJY3kIgwhAAB5LhaPAdkcCp6jIGoGFuNpCjCbBRFAVATi8SwwEmNAtBCeA+jWLRwlANALnACx0CroJQACa4KyCgI=" 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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<img>1</img>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>2</img>"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<img>3</img>"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBackgroundExt of hoPanel to "bottom[10,pattern=6,back=RGB(255,0,0),text=`<font ;6><img>alert</img><b>Alert!`,align=0x11]"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
		Set ComBackgroundExt of hoPanel1 to "bottom[20,back=RGB(128,0,0),text=`<fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
		Set ComBackgroundExt of hoPanel2 to "bottom[30,back=RGB(64,0,0),text=`<font ;12><fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComControlID of hoPanel to "MSCAL.Calendar"
		Variant voCalendar
		Get ComObject of hoPanel to voCalendar
		Handle hoCalendar
		Get Create (RefClass(cComCalendar)) to hoCalendar
		Set pvComObject of hoCalendar to voCalendar
			Set ComMonthLength of hoCalendar to 0
			Set ComBackColor of hoCalendar to (RGB(255,255,255))
		Send Destroy to hoCalendar
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 5 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		Set ComAlignment of hoPanel1 to OLEexAlignMiddleLeft
		Set ComPercent of hoPanel1 to 75
		Set ComTransparency of hoPanel1 to 35
		Set ComOffset of hoPanel1 to "4 2 -4 -2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComControlID of hoPanel to "MSChart20Lib.MSChart"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComControlID of hoPanel1 to "MSCAL.Calendar"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 5 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleLeft
		Set ComPercent of hoPanel2 to 75
		Set ComTransparency of hoPanel2 to 35
		Set ComOffset of hoPanel2 to "4 2 -4 -2"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
		Set ComPercent of hoPanel to 75
		Set ComTransparency of hoPanel to 35
		Set ComOffset of hoPanel to "4 2 -4 -2"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "15%"
		Set ComPercent of hoPanel to 15
		Set ComOffsetPercent of hoPanel to "6 6 -6 -6"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

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
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComBackColor of hoPanel to (RGB(255,255,255))
		Set ComText of hoPanel to "15%"
		Set ComPercent of hoPanel to 15
		Set ComBackColorPercent of hoPanel to |CI$1000000
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	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 "gBFLBCJwBAEHhEJAEGg8GhiAADACAxRDAMgBQKAAzQFAYbhrBaERhGIYYJhUAIIRZGMIjFDcEwxDSMQJjaCRQh+JYkR6MQCSBJkMw5AaXYrlWJoMjKA4nTbKMjRfKcWRjGKeJ5kOaZIhuJgCUJLM70HRMExqGQaRJpeoZVDUMJSQjVVYUbDVFwHIKkZzoWhJQiKXIuRzXdKzLYVSABA6xbLiWrpWqebQAThbdD3FC1aTBISpaztepKZpeVaGXxcdo3LTlbzzOC3MRva7MOjqJJIYjMGJ3fLuA49QrBKymWJcYwyGgIQiBdKaK7+WgBVp/YqjeL9IgMUBpGKdBynlzGHzeQiQRK8BDIbQSFCEdpADSrKBiFioZjXGwbBaXJ4ujOdY2D2Do3FeOZbmmdx6HAECAg==" to Nothing
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
		Set ComPercent of hoPanel to 75
		Set ComTransparency of hoPanel to 35
		Set ComOffset of hoPanel to "4 2 -4 -2"
		Set ComBackColorPercent of hoPanel to |CI$1000000
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "15%"
		Set ComPercent of hoPanel to 15
		Set ComBackColorPercent of hoPanel to (RGB(255,0,0))
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "15%"
		Set ComPercent of hoPanel to 15
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to (ComWidth(hoPanel))
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 6 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to (ComHeight(hoPanel1))
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Disabled"
		Set ComEnabled of hoPanel to False
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "UserData"
		Set ComUserData of hoPanel to "this is just some extra data associated to the panel"
		Set ComToolTipText of hoPanel to (ComUserData(hoPanel))
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "OwnerDraw"
		Set ComOwnerDraw of hoPanel to True
	Send Destroy to hoPanel
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComFormat to "1/2/3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel1 to (ComText(hoPanel1))
		Set ComToolTipTitle of hoPanel1 to "Title"
		Set ComAlignment of hoPanel1 to OLEexAlignMiddleLeft
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel2 to (ComText(hoPanel2))
		Set ComToolTipTitle of hoPanel2 to "Title"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleLeft
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 6 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComImage of hoPanel1 to 2
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 8 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComImage of hoPanel2 to 3
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Variant v
			Variant voPanel1
			Get ComPanel 1 to voPanel1
			Handle hoPanel1
			Get Create (RefClass(cComPanel)) to hoPanel1
			Set pvComObject of hoPanel1 to voPanel1
				Get ComIndex of hoPanel1 to v
			Send Destroy to hoPanel1
		Set ComText of hoPanel to v
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

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 3 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\pushed.ebn" to Nothing
		Get ComAdd of hoAppearance 1 "CP:3 2 2 -2 -2" to Nothing
		Get ComAdd of hoAppearance 2 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBackColor of hoPanel to |CI$1000000
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
		Set ComBackColor of hoPanel1 to |CI$2000000
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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
	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 ComBackColorPanels to |CI$5000000
	Set ComFormat to """:4,((4;""/1/4;""),"":4,(4;""/2/4;"")),"":4"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBackColor of hoPanel to |CI$1000000
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
		Set ComBackColor of hoPanel1 to |CI$2000000
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormat to """:4,((4;""/1/4;""),"":4,(4;""/2/4;"")),"":4"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBackColor of hoPanel to (RGB(255,255,0))
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
		Set ComBackColor of hoPanel1 to (RGB(255,0,255))
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1:48/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComForeColor of hoPanel to (RGB(255,255,0))
	Send Destroy to hoPanel
	Variant var_Panel
	Get ComPanel 2 to var_Panel
		Set ComText to "Panel 2"
		Set ComForeColor to (RGB(255,0,255))
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComStrikeOut of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<s>Panel</s> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComUnderline of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<u>Panel</u> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComItalic of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<i>Panel</i> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBold of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<b>Panel</b> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2/(3,4)"
	Variant voPanel
	Get ComPanel 3 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Arrange the panels as you want using CRD strings"
		Set ComAlignment of hoPanel to OLEexAlignTopLeft
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComOffset of hoPanel to "10 10 -10 -10"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2/(3,4)"
	Variant voPanel
	Get ComPanel 3 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Arrange the panels as you want using CRD strings"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComWordWrap of hoPanel to False
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "(0/16/32),(1/17/33),(2/18/34)"
	Variant voPanel
	Get ComPanel 0 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "exAlignTopLeft"
		Set ComAlignment of hoPanel to OLEexAlignTopLeft
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 1 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "exAlignTopCenter"
		Set ComAlignment of hoPanel1 to OLEexAlignTopCenter
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 2 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "exAlignTopRight"
		Set ComAlignment of hoPanel2 to OLEexAlignTopRight
	Send Destroy to hoPanel2
	Variant voPanel3
	Get ComPanel 16 to voPanel3
	Handle hoPanel3
	Get Create (RefClass(cComPanel)) to hoPanel3
	Set pvComObject of hoPanel3 to voPanel3
		Set ComText of hoPanel3 to "exAlignMiddleLeft"
		Set ComAlignment of hoPanel3 to OLEexAlignMiddleLeft
	Send Destroy to hoPanel3
	Variant voPanel4
	Get ComPanel 17 to voPanel4
	Handle hoPanel4
	Get Create (RefClass(cComPanel)) to hoPanel4
	Set pvComObject of hoPanel4 to voPanel4
		Set ComText of hoPanel4 to "exAlignMiddleCenter"
		Set ComAlignment of hoPanel4 to OLEexAlignMiddleCenter
	Send Destroy to hoPanel4
	Variant voPanel5
	Get ComPanel 18 to voPanel5
	Handle hoPanel5
	Get Create (RefClass(cComPanel)) to hoPanel5
	Set pvComObject of hoPanel5 to voPanel5
		Set ComText of hoPanel5 to "exAlignMiddleRight"
		Set ComAlignment of hoPanel5 to OLEexAlignMiddleRight
	Send Destroy to hoPanel5
	Variant voPanel6
	Get ComPanel 32 to voPanel6
	Handle hoPanel6
	Get Create (RefClass(cComPanel)) to hoPanel6
	Set pvComObject of hoPanel6 to voPanel6
		Set ComText of hoPanel6 to "exAlignBottomLeft"
		Set ComAlignment of hoPanel6 to OLEexAlignBottomLeft
	Send Destroy to hoPanel6
	Variant voPanel7
	Get ComPanel 33 to voPanel7
	Handle hoPanel7
	Get Create (RefClass(cComPanel)) to hoPanel7
	Set pvComObject of hoPanel7 to voPanel7
		Set ComText of hoPanel7 to "exAlignBottomCenter"
		Set ComAlignment of hoPanel7 to OLEexAlignBottomCenter
	Send Destroy to hoPanel7
	Variant voPanel8
	Get ComPanel 34 to voPanel8
	Handle hoPanel8
	Get Create (RefClass(cComPanel)) to hoPanel8
	Set pvComObject of hoPanel8 to voPanel8
		Set ComText of hoPanel8 to "exAlignBottomRight"
		Set ComAlignment of hoPanel8 to OLEexAlignBottomRight
	Send Destroy to hoPanel8
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<b>Bold</b>"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Link <a1>1</a>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<a2>Link 2</a>"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<font Tahoma>Panel 1</font>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<font System>Panel 2</font>"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel <font Tahoma;20>1</font>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel <font Tahoma;16>2</font>"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1<img>pic1</img>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel <img>pic2</img> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1<img>1</img>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>2</img>Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1<br>Line 1<br>Line2"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<bgcolor=FFFF00>Panel</bgcolor> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<bgcolor=FF0000>Panel</bgcolor> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<bgcolor=FFFF00>Panel</bgcolor> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<fgcolor=FF0000>Panel</fgcolor> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<fgcolor=FFFF00>Panel</fgcolor> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<i>Panel</i> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<i>Panel</i> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<s>Panel</s> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<s>Panel</s> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<u>Panel</u> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<u>Panel</u> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<b>Panel</b> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<b>Panel</b> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1010/2020"
	Variant voPanel
	Get ComPanel 1010 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBold of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2020 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to |CI$8000000f
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1/2/48;(3,4:48)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
	Send Destroy to hoPanel2
	Variant voPanel3
	Get ComPanel 4 to voPanel3
	Handle hoPanel3
	Get Create (RefClass(cComPanel)) to hoPanel3
	Set pvComObject of hoPanel3 to voPanel3
		Set ComText of hoPanel3 to "Panel 4"
	Send Destroy to hoPanel3
	Send ComClearPanels
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormat to ""<a1>link</a>"[a=17]:64,11:64,((24;21/"Arrange the panels as you want using CRD strings"[a=17][ww])/24;3),(33/44):48"
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	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\border.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "CP:2 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to OLENone2
	Set ComBackColor to |CI$8000000f
	Set ComBackColorPanels to |CI$3000000
	Variant voPanel
	Get ComPanel 11 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel <b>1</b>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 3 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComTransparency of hoPanel1 to 50
		Set ComText of hoPanel1 to "<img>1</img>75%"
		Set ComPercent of hoPanel1 to 75
		Set ComAlignment of hoPanel1 to OLEexAlignMiddleLeft
		Set ComOffset of hoPanel1 to "4 4 -4 -4"
		Set ComOffsetPercent of hoPanel1 to (ComOffset(hoPanel1))
		Set ComBackColorPercent of hoPanel1 to |CI$1000000
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 21 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComImage of hoPanel2 to 1
	Send Destroy to hoPanel2
	Variant voPanel3
	Get ComPanel 33 to voPanel3
	Handle hoPanel3
	Get Create (RefClass(cComPanel)) to hoPanel3
	Set pvComObject of hoPanel3 to voPanel3
		Set ComText of hoPanel3 to "Panel 3"
		Set ComBold of hoPanel3 to True
		Set ComEnabled of hoPanel3 to False
	Send Destroy to hoPanel3
	Variant voPanel4
	Get ComPanel 44 to voPanel4
	Handle hoPanel4
	Get Create (RefClass(cComPanel)) to hoPanel4
	Set pvComObject of hoPanel4 to voPanel4
		Set ComText of hoPanel4 to "Panel 4"
	Send Destroy to hoPanel4
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to |CI$8000000f
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1/2/48;(3,4:48)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
	Send Destroy to hoPanel2
	Variant voPanel3
	Get ComPanel 4 to voPanel3
	Handle hoPanel3
	Get Create (RefClass(cComPanel)) to hoPanel3
	Set pvComObject of hoPanel3 to voPanel3
		Set ComText of hoPanel3 to "Panel 4"
	Send Destroy to hoPanel3
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to |CI$8000000f
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1/2/3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to |CI$8000000f
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1:64,"<img>1</img> just text and so on ..."[a=17],2:96"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1:64,"",2:96"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1:64,2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2:64"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\hot.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 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to ""<a1>link</a>"[a=17]:64,11:64,((24;21/"Arrange the panels as you want using CRD strings"[a=17][ww])/24;3),(33/44):48"
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\pushed.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 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2:32,(3/4/5)"
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "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 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,(3/4/5)"
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant p
	Get ComPanelFromPoint -1 -1 to p
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "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 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,(3/4/5)"
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComDebug to True
	Set ComFormat to "(0/1:32),2,(3/4/5)"
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<a1>link 1</a>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<a2>link 2</a>"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<a3>link 3</a>"
	Send Destroy to hoPanel2
	Send ComShowToolTip (ComAnchorFromPoint(Self,-1,-1)) Nothing Nothing Nothing Nothing
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormatAnchor False to "<b><u><fgcolor=880000> </fgcolor></u></b>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<a1>link 1</a>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<a2>link 2</a>"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<a3>link 3</a>"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormatAnchor True to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<a1>link 1</a>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<a2>link 2</a>"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<a3>link 3</a>"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

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 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComFormat to "1,2,3,4"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<img>pic1</img>"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComShowToolTip "This is a bit of text that should appear when ShowToolTip method is called." Nothing Nothing Nothing Nothing
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 426
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDebug to True
	Set ComFormat to "1"
	Variant voPanel
	Get ComExecuteTemplate "Panel(1)" to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "this is called through ExecuteTemplate property"
	Send Destroy to hoPanel
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTemplate to "BackColor = RGB(255,0,0)"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComEnabled to False
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<img>2</img>"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleRight
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComToolTipPopDelay to 10000
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	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
	Set ComBackground OLEexToolTipBackColor to (RGB(246,245,240))
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Drag the cursor hover so the tooltip shows up"
		Set ComToolTipText of hoPanel to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a panel"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Drag the cursor hover so the tooltip shows up"
		Set ComToolTipText of hoPanel to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>panel</fgcolor>"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	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
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "this is a tooltip assigned to a panel"
		Set ComToolTipText of hoPanel to "<fgcolor=FF0000>this is a tooltip assigned to a panel</fgcolor>"
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	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
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 0
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	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
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	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
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComFormat to (ComhWnd(Self))
	Send ComClearPanels
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<img>2</img>"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleRight
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 2 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<img>2</img>"
		Set ComAlignment of hoPanel to OLEexAlignMiddleRight
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 2 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<img>2</img>"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<img>2</img>"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleRight
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBorderWidth to 20
	Set ComBorderHeight to 20
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormat to (ComVersion(Self))
	Send ComClearPanels
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEMiddleCenter
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEStretch
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerRight
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerLeft
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperCenter
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperRight
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperLeft
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComForeColor to (RGB(120,120,120))
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to (RGB(200,200,200))
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.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 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure