property TreeCube.Appearance as AppearanceEnum
Retrieves or sets the control's appearance.

TypeDescription
AppearanceEnum An AppearanceEnum expression that indicates the control's appearance, or a color expression whose last 7 bits in the high significant byte of the value indicates the index of the skin in the Appearance collection, being displayed as control's borders. For instance, if the Appearance = 0x1000000, indicates that the first skin object in the Appearance collection defines the control's border.  The Client object in the skin, defines the client area of the control. The list/hierarchy, scrollbars are always shown in the control's client area. The skin may contain transparent objects, and so you can define round corners. The shadow.ebn file contains such of objects. Use the eXButton's Skin builder to view or change this file
By default. the Appearance property is None2, so no border is shown. The Appearance property changes the control's border. 

The following screen shot shows the control's border using an EBN object:

The following samples shows how you can assign and display an EBN object on the control's border: 

VBA (MS Access, Excell...)

With TreeCube1
	.VisualAppearance.Add 1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn"
	.Appearance = 16777216 ' &H1000000
End With

VB6

With TreeCube1
	.VisualAppearance.Add 1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn"
	.Appearance = &H1000000
End With

VB.NET

With Extreecube1
	.VisualAppearance.Add(1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn")
	.Appearance = &H1000000
End With

VB.NET for /COM

With AxTreeCube1
	.VisualAppearance.Add(1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn")
	.Appearance = &H1000000
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->GetVisualAppearance()->Add(1,"E:\\Exontrol\\ExButton\\sample\\EBN\\Assorted\\shadow.ebn");
spTreeCube1->PutAppearance(EXTREECUBELib::AppearanceEnum(0x1000000));

C++ Builder

TreeCube1->VisualAppearance->Add(1,TVariant("E:\\Exontrol\\ExButton\\sample\\EBN\\Assorted\\shadow.ebn"));
TreeCube1->Appearance = Extreecubelib_tlb::AppearanceEnum(0x1000000);

C#

extreecube1.VisualAppearance.Add(1,"E:\\Exontrol\\ExButton\\sample\\EBN\\Assorted\\shadow.ebn");
extreecube1.Appearance = (exontrol.EXTREECUBELib.AppearanceEnum)0x1000000;

JScript/JavaScript

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

<SCRIPT LANGUAGE="JScript">
function Init()
{
	TreeCube1.VisualAppearance.Add(1,"E:\\Exontrol\\ExButton\\sample\\EBN\\Assorted\\shadow.ebn");
	TreeCube1.Appearance = 16777216;
}
</SCRIPT>
</BODY>

VBScript

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.VisualAppearance.Add 1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn"
		.Appearance = 16777216 ' &H1000000
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axTreeCube1.VisualAppearance.Add(1,"E:\\Exontrol\\ExButton\\sample\\EBN\\Assorted\\shadow.ebn");
axTreeCube1.Appearance = (EXTREECUBELib.AppearanceEnum)0x1000000;

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	extreecube1.VisualAppearance().Add(1,"E:\\Exontrol\\ExButton\\sample\\EBN\\Assorted\\shadow.ebn");
	extreecube1.Appearance(16777216);
}

Delphi 8 (.NET only)

with AxTreeCube1 do
begin
	VisualAppearance.Add(1,'E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn');
	Appearance := EXTREECUBELib.AppearanceEnum($1000000);
end

Delphi (standard)

with TreeCube1 do
begin
	VisualAppearance.Add(1,'E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn');
	Appearance := EXTREECUBELib_TLB.AppearanceEnum($1000000);
end

VFP

with thisform.TreeCube1
	.VisualAppearance.Add(1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn")
	.Appearance = 16777216 && 0x1000000
endwith

dBASE Plus

local oTreeCube

oTreeCube = form.EXTREECUBEACTIVEXCONTROL1.nativeObject
oTreeCube.VisualAppearance.Add(1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn")
oTreeCube.Appearance = 16777216 /*0x1000000 | */

XBasic (Alpha Five)

Dim oTreeCube as P

oTreeCube = topparent:CONTROL_ACTIVEX1.activex
oTreeCube.VisualAppearance.Add(1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn")
oTreeCube.Appearance = 16777216 '1000000 +

Visual Objects


oDCOCX_Exontrol1:VisualAppearance:Add(1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn")
oDCOCX_Exontrol1:Appearance := 0x1000000 |

PowerBuilder

OleObject oTreeCube

oTreeCube = ole_1.Object
oTreeCube.VisualAppearance.Add(1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn")
oTreeCube.Appearance = 16777216 /*0x1000000 | */

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
End_Procedure

XBase++

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

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	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:VisualAppearance():Add(1,"E:\Exontrol\ExButton\sample\EBN\Assorted\shadow.ebn")
		oTreeCube:Appearance := 16777216/*0x1000000+*/

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