property TreeCube.Background(Part as BackgroundPartEnum) as Color
Returns or sets a value that indicates the background color for parts in the control.

TypeDescription
Part as BackgroundPartEnum A BackgroundPartEnum expression that indicates a part in the control.
Color A Color expression that indicates the background color for a specified part. The last 7 bits in the high significant byte of the color to indicates the identifier of the skin being used. Use the Add method to add new skins to the control. If you need to remove the skin appearance from a part of the control you need to reset the last 7 bits in the high significant byte of the color being applied to the background's part.

The Background property specifies a background color or a visual appearance for specific parts in the control. If the Background property is 0, the control draws the part as default. Use the Add method to add new skins to the control. Use the Remove method to remove a specific skin from the control. Use the Clear method to remove all skins in the control. Use the BeginUpdate and EndUpdate methods to maintain performance while init the control. Use the Refresh method to refresh the control.

How can I use the Background property?

VBA (MS Access, Excell...)

With TreeCube1
	.BeginUpdate 
	.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn"
	.Background(8) = &H1000000
	.Background(7) = RGB(250,250,250)
	.Background(6) = RGB(250,250,250)
	.Background(9) = &H2000000
	.Background(31) = RGB(255,255,255)
	.TexturePicturePath = ""
	With .FrontFace.CreateCalendar
		.Date = #1/1/2016#
		.AutoSize = 1
		.MaxMonthX = .MinMonthX
		.MaxMonthY = .MinMonthY
	End With
	.EndUpdate 
End With

VB6

With TreeCube1
	.BeginUpdate 
	.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn"
	.Background(exDateHeader) = &H1000000
	.Background(exWeeksHeader) = RGB(250,250,250)
	.Background(exDaysHeader) = RGB(250,250,250)
	.Background(exDateTodayUp) = &H2000000
	.Background(exDateTodayForeColor) = RGB(255,255,255)
	.TexturePicturePath = ""
	With .FrontFace.CreateCalendar
		.Date = #1/1/2016#
		.AutoSize = exFitClient
		.MaxMonthX = .MinMonthX
		.MaxMonthY = .MinMonthY
	End With
	.EndUpdate 
End With

VB.NET

With Extreecube1
	.BeginUpdate()
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,&H1000000)
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(250,250,250))
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(250,250,250))
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,&H2000000)
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255))
	.TexturePicturePath = ""
	With .FrontFace.CreateCalendar()
		.Date = #1/1/2016#
		.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
		.MaxMonthX = .MinMonthX
		.MaxMonthY = .MinMonthY
	End With
	.EndUpdate()
End With

VB.NET for /COM

With AxTreeCube1
	.BeginUpdate()
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,16448250)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,16448250)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,16777215)
	.TexturePicturePath = ""
	With .FrontFace.CreateCalendar()
		.Date = #1/1/2016#
		.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		.MaxMonthX = .MinMonthX
		.MaxMonthY = .MinMonthY
	End With
	.EndUpdate()
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXTREECUBELib' for the library: 'ExTreeCube 1.0 Control Library'

	#import <ExTreeCube.dll>
	using namespace EXTREECUBELib;
*/
EXTREECUBELib::ITreeCubePtr spTreeCube1 = GetDlgItem(IDC_TREECUBE1)->GetControlUnknown();
spTreeCube1->BeginUpdate();
spTreeCube1->GetVisualAppearance()->Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn");
spTreeCube1->PutBackground(EXTREECUBELib::exDateHeader,0x1000000);
spTreeCube1->PutBackground(EXTREECUBELib::exWeeksHeader,RGB(250,250,250));
spTreeCube1->PutBackground(EXTREECUBELib::exDaysHeader,RGB(250,250,250));
spTreeCube1->PutBackground(EXTREECUBELib::exDateTodayUp,0x2000000);
spTreeCube1->PutBackground(EXTREECUBELib::exDateTodayForeColor,RGB(255,255,255));
spTreeCube1->PutTexturePicturePath(L"");
EXTREECUBELib::IFaceCalendarPtr var_FaceCalendar = spTreeCube1->GetFrontFace()->CreateCalendar();
	var_FaceCalendar->PutDate(COleDateTime(2016,1,1,0,00,00).operator DATE());
	var_FaceCalendar->PutAutoSize(EXTREECUBELib::exFitClient);
	var_FaceCalendar->PutMaxMonthX(var_FaceCalendar->GetMinMonthX());
	var_FaceCalendar->PutMaxMonthY(var_FaceCalendar->GetMinMonthY());
spTreeCube1->EndUpdate();

C++ Builder

TreeCube1->BeginUpdate();
TreeCube1->VisualAppearance->Add(1,TVariant("C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn"));
TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exDateHeader] = 0x1000000;
TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exWeeksHeader] = RGB(250,250,250);
TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exDaysHeader] = RGB(250,250,250);
TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exDateTodayUp] = 0x2000000;
TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exDateTodayForeColor] = RGB(255,255,255);
TreeCube1->TexturePicturePath = L"";
Extreecubelib_tlb::IFaceCalendarPtr var_FaceCalendar = TreeCube1->FrontFace->CreateCalendar();
	var_FaceCalendar->Date = TDateTime(2016,1,1).operator double();
	var_FaceCalendar->AutoSize = Extreecubelib_tlb::AutoSizeEnum::exFitClient;
	var_FaceCalendar->MaxMonthX = var_FaceCalendar->MinMonthX;
	var_FaceCalendar->MaxMonthY = var_FaceCalendar->MinMonthY;
TreeCube1->EndUpdate();

C#

extreecube1.BeginUpdate();
extreecube1.VisualAppearance.Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn");
extreecube1.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,0x1000000);
extreecube1.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(250,250,250));
extreecube1.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(250,250,250));
extreecube1.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,0x2000000);
extreecube1.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255));
extreecube1.TexturePicturePath = "";
exontrol.EXTREECUBELib.FaceCalendar var_FaceCalendar = extreecube1.FrontFace.CreateCalendar();
	var_FaceCalendar.Date = Convert.ToDateTime("1/1/2016",System.Globalization.CultureInfo.GetCultureInfo("en-US"));
	var_FaceCalendar.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient;
	var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX;
	var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY;
extreecube1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	TreeCube1.BeginUpdate();
	TreeCube1.VisualAppearance.Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn");
	TreeCube1.Background(8) = 16777216;
	TreeCube1.Background(7) = 16448250;
	TreeCube1.Background(6) = 16448250;
	TreeCube1.Background(9) = 33554432;
	TreeCube1.Background(31) = 16777215;
	TreeCube1.TexturePicturePath = "";
	var var_FaceCalendar = TreeCube1.FrontFace.CreateCalendar();
		var_FaceCalendar.Date = "1/1/2016";
		var_FaceCalendar.AutoSize = 1;
		var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX;
		var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY;
	TreeCube1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.BeginUpdate 
		.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn"
		.Background(8) = &H1000000
		.Background(7) = RGB(250,250,250)
		.Background(6) = RGB(250,250,250)
		.Background(9) = &H2000000
		.Background(31) = RGB(255,255,255)
		.TexturePicturePath = ""
		With .FrontFace.CreateCalendar
			.Date = #1/1/2016#
			.AutoSize = 1
			.MaxMonthX = .MinMonthX
			.MaxMonthY = .MinMonthY
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axTreeCube1.BeginUpdate();
axTreeCube1.VisualAppearance.Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn");
axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,0x1000000);
axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,(uint)ColorTranslator.ToWin32(Color.FromArgb(250,250,250)));
axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,(uint)ColorTranslator.ToWin32(Color.FromArgb(250,250,250)));
axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,0x2000000);
axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,(uint)ColorTranslator.ToWin32(Color.FromArgb(255,255,255)));
axTreeCube1.TexturePicturePath = "";
EXTREECUBELib.FaceCalendar var_FaceCalendar = axTreeCube1.FrontFace.CreateCalendar();
	var_FaceCalendar.Date = Convert.ToDateTime("1/1/2016",System.Globalization.CultureInfo.GetCultureInfo("en-US"));
	var_FaceCalendar.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient;
	var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX;
	var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY;
axTreeCube1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_FaceCalendar;
	anytype var_FaceCalendar;
	;

	super();

	extreecube1.BeginUpdate();
	extreecube1.VisualAppearance().Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn");
	extreecube1.Background(8/*exDateHeader*/,0x1000000);
	extreecube1.Background(7/*exWeeksHeader*/,WinApi::RGB2int(250,250,250));
	extreecube1.Background(6/*exDaysHeader*/,WinApi::RGB2int(250,250,250));
	extreecube1.Background(9/*exDateTodayUp*/,0x2000000);
	extreecube1.Background(31/*exDateTodayForeColor*/,WinApi::RGB2int(255,255,255));
	extreecube1.TexturePicturePath("");
	var_FaceCalendar = extreecube1.FrontFace().CreateCalendar(); com_FaceCalendar = var_FaceCalendar;
		com_FaceCalendar.Date(str2Date("1/1/2016",213));
		com_FaceCalendar.AutoSize(1/*exFitClient*/);
		com_FaceCalendar.MaxMonthX(com_FaceCalendar.MinMonthX());
		com_FaceCalendar.MaxMonthY(com_FaceCalendar.MinMonthY());
	extreecube1.EndUpdate();
}

Delphi 8 (.NET only)

with AxTreeCube1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn');
	set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,$1000000);
	set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,$fafafa);
	set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,$fafafa);
	set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,$2000000);
	set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,$ffffff);
	TexturePicturePath := '';
	with FrontFace.CreateCalendar() do
	begin
		Date := '1/1/2016';
		AutoSize := EXTREECUBELib.AutoSizeEnum.exFitClient;
		MaxMonthX := MinMonthX;
		MaxMonthY := MinMonthY;
	end;
	EndUpdate();
end

Delphi (standard)

with TreeCube1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn');
	Background[EXTREECUBELib_TLB.exDateHeader] := $1000000;
	Background[EXTREECUBELib_TLB.exWeeksHeader] := $fafafa;
	Background[EXTREECUBELib_TLB.exDaysHeader] := $fafafa;
	Background[EXTREECUBELib_TLB.exDateTodayUp] := $2000000;
	Background[EXTREECUBELib_TLB.exDateTodayForeColor] := $ffffff;
	TexturePicturePath := '';
	with FrontFace.CreateCalendar() do
	begin
		Date := '1/1/2016';
		AutoSize := EXTREECUBELib_TLB.exFitClient;
		MaxMonthX := MinMonthX;
		MaxMonthY := MinMonthY;
	end;
	EndUpdate();
end

VFP

with thisform.TreeCube1
	.BeginUpdate
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
	.Object.Background(8) = 0x1000000
	.Object.Background(7) = RGB(250,250,250)
	.Object.Background(6) = RGB(250,250,250)
	.Object.Background(9) = 0x2000000
	.Object.Background(31) = RGB(255,255,255)
	.TexturePicturePath = ""
	with .FrontFace.CreateCalendar
		.Date = {^2016-1-1}
		.AutoSize = 1
		.MaxMonthX = .MinMonthX
		.MaxMonthY = .MinMonthY
	endwith
	.EndUpdate
endwith

dBASE Plus

local oTreeCube,var_FaceCalendar

oTreeCube = form.EXTREECUBEACTIVEXCONTROL1.nativeObject
oTreeCube.BeginUpdate()
oTreeCube.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
oTreeCube.Template = [Background(8) = 16777216] // oTreeCube.Background(8) = 0x1000000
oTreeCube.Template = [Background(7) = 16448250] // oTreeCube.Background(7) = 0xfafafa
oTreeCube.Template = [Background(6) = 16448250] // oTreeCube.Background(6) = 0xfafafa
oTreeCube.Template = [Background(9) = 33554432] // oTreeCube.Background(9) = 0x2000000
oTreeCube.Template = [Background(31) = 16777215] // oTreeCube.Background(31) = 0xffffff
oTreeCube.TexturePicturePath = ""
var_FaceCalendar = oTreeCube.FrontFace.CreateCalendar()
	var_FaceCalendar.Date = "01/01/2016"
	var_FaceCalendar.AutoSize = 1
	var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX
	var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY
oTreeCube.EndUpdate()

XBasic (Alpha Five)

Dim oTreeCube as P
Dim var_FaceCalendar as P

oTreeCube = topparent:CONTROL_ACTIVEX1.activex
oTreeCube.BeginUpdate()
oTreeCube.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
oTreeCube.Template = "Background(8) = 16777216" // oTreeCube.Background(8) = 16777216
oTreeCube.Template = "Background(7) = 16448250" // oTreeCube.Background(7) = 16448250
oTreeCube.Template = "Background(6) = 16448250" // oTreeCube.Background(6) = 16448250
oTreeCube.Template = "Background(9) = 33554432" // oTreeCube.Background(9) = 33554432
oTreeCube.Template = "Background(31) = 16777215" // oTreeCube.Background(31) = 16777215
oTreeCube.TexturePicturePath = ""
var_FaceCalendar = oTreeCube.FrontFace.CreateCalendar()
	var_FaceCalendar.Date = {01/01/2016}
	var_FaceCalendar.AutoSize = 1
	var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX
	var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY
oTreeCube.EndUpdate()

Visual Objects

local var_FaceCalendar as IFaceCalendar

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
oDCOCX_Exontrol1:[Background,exDateHeader] := 0x1000000
oDCOCX_Exontrol1:[Background,exWeeksHeader] := RGB(250,250,250)
oDCOCX_Exontrol1:[Background,exDaysHeader] := RGB(250,250,250)
oDCOCX_Exontrol1:[Background,exDateTodayUp] := 0x2000000
oDCOCX_Exontrol1:[Background,exDateTodayForeColor] := RGB(255,255,255)
oDCOCX_Exontrol1:TexturePicturePath := ""
var_FaceCalendar := oDCOCX_Exontrol1:FrontFace:CreateCalendar()
	var_FaceCalendar:Date := SToD("20160101")
	var_FaceCalendar:AutoSize := exFitClient
	var_FaceCalendar:MaxMonthX := var_FaceCalendar:MinMonthX
	var_FaceCalendar:MaxMonthY := var_FaceCalendar:MinMonthY
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oTreeCube,var_FaceCalendar

oTreeCube = ole_1.Object
oTreeCube.BeginUpdate()
oTreeCube.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
oTreeCube.Background(8,16777216 /*0x1000000*/)
oTreeCube.Background(7,RGB(250,250,250))
oTreeCube.Background(6,RGB(250,250,250))
oTreeCube.Background(9,33554432 /*0x2000000*/)
oTreeCube.Background(31,RGB(255,255,255))
oTreeCube.TexturePicturePath = ""
var_FaceCalendar = oTreeCube.FrontFace.CreateCalendar()
	var_FaceCalendar.Date = 2016-01-01
	var_FaceCalendar.AutoSize = 1
	var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX
	var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY
oTreeCube.EndUpdate()

Visual DataFlex

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:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexDateHeader to |CI$1000000
	Set ComBackground OLEexWeeksHeader to (RGB(250,250,250))
	Set ComBackground OLEexDaysHeader to (RGB(250,250,250))
	Set ComBackground OLEexDateTodayUp to |CI$2000000
	Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255))
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComCreateCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComDate of hoFaceCalendar to "1/1/2016"
			Set ComAutoSize of hoFaceCalendar to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar to (ComMinMonthX(hoFaceCalendar))
			Set ComMaxMonthY of hoFaceCalendar to (ComMinMonthY(hoFaceCalendar))
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oFaceCalendar
	LOCAL oTreeCube

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oTreeCube := XbpActiveXControl():new( oForm:drawingArea )
	oTreeCube:CLSID  := "Exontrol.TreeCube.1" /*{13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9}*/
	oTreeCube:create(,, {10,60},{610,370} )

		oTreeCube:BeginUpdate()
		oTreeCube:VisualAppearance():Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
		oTreeCube:SetProperty("Background",8/*exDateHeader*/,0x1000000)
		oTreeCube:SetProperty("Background",7/*exWeeksHeader*/,AutomationTranslateColor( GraMakeRGBColor  ( { 250,250,250 } )  , .F. ))
		oTreeCube:SetProperty("Background",6/*exDaysHeader*/,AutomationTranslateColor( GraMakeRGBColor  ( { 250,250,250 } )  , .F. ))
		oTreeCube:SetProperty("Background",9/*exDateTodayUp*/,0x2000000)
		oTreeCube:SetProperty("Background",31/*exDateTodayForeColor*/,AutomationTranslateColor( GraMakeRGBColor  ( { 255,255,255 } )  , .F. ))
		oTreeCube:TexturePicturePath := ""
		oFaceCalendar := oTreeCube:FrontFace():CreateCalendar()
			oFaceCalendar:Date := "01/01/2016"
			oFaceCalendar:AutoSize := 1/*exFitClient*/
			oFaceCalendar:MaxMonthX := oFaceCalendar:MinMonthX()
			oFaceCalendar:MaxMonthY := oFaceCalendar:MinMonthY()
		oTreeCube:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN