property RadialMenu.ExtraCaption(Key as Variant, Property as PropertyLayerCaptionEnum) as Variant
Specifies any extra caption on the control.

TypeDescription
Key as Variant A VARIANT expression that specifies the key of the extra caption. You can use any value to identify one extra caption.
Property as PropertyLayerCaptionEnum A PropertyLayerCaptionEnum expression that specifies the extra caption's property to be changed.
Variant A VARIANT expression that specifies the value of the extra caption's property.
The control support unlimited HTML captions to be place anywhere on the control or on any layer of the control. The Caption( exLayerCaption) specifies the HTML caption to be shown on the control/layer. The Images method specifies the list of icons the control can display. The HTMLPicture adds or replaces a picture in HTML captions. The Caption( exLayerCaptionBackgroundExt) property indicates unlimited options to show any HTML text, images, colors, EBNs, patterns, frames anywhere on the control / layer's background. The caption on the control stay on its position, no matter what layer is moved or rotated, while a caption on a layer gets moved or rotated together with the layer itself. The ForeColor property specifies the control's foreground color.

Any of the following properties can be used to display a HTML caption:

The following screen shot shows a few captions on the control's background:

The following samples show how you can display captions on the control's background: 

VBA (MS Access, Excell...)

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.MinVisibleCount = 6
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Caption(0) = "This is a caption to be displayed on the control's background."
	.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."
	.ExtraCaption("extra",3) = 2
	.ExtraCaption("extra",8) = True
	.ExtraCaption("extralogo",0) = "<img>logo:64</img>"
	.ExtraCaption("extralogo",3) = 4
	.ExtraCaption("extralogo",4) = "width-twidth"
	.EndUpdate 
End With

VB6

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.MinVisibleCount = 6
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Caption(exLayerCaption) = "This is a caption to be displayed on the control's background."
	.ExtraCaption("extra",exLayerCaption) = "This is an extra caption to be displayed on the control's background."
	.ExtraCaption("extra",exLayerCaptionAnchor) = 2
	.ExtraCaption("extra",exLayerCaptionWordWrap) = True
	.ExtraCaption("extralogo",exLayerCaption) = "<img>logo:64</img>"
	.ExtraCaption("extralogo",exLayerCaptionAnchor) = 4
	.ExtraCaption("extralogo",exLayerCaptionLeft) = "width-twidth"
	.EndUpdate 
End With

VB.NET

With Exradialmenu1
	.BeginUpdate()
	.Expanded = True
	.MinVisibleCount = 6
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.set_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is a caption to be displayed on the control's background.")
	.set_ExtraCaption("extra",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is an extra caption to be displayed on the control's background.")
	.set_ExtraCaption("extra",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2)
	.set_ExtraCaption("extra",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,True)
	.set_ExtraCaption("extralogo",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"<img>logo:64</img>")
	.set_ExtraCaption("extralogo",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,4)
	.set_ExtraCaption("extralogo",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width-twidth")
	.EndUpdate()
End With

VB.NET for /COM

With AxRadialMenu1
	.BeginUpdate()
	.Expanded = True
	.MinVisibleCount = 6
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is a caption to be displayed on the control's background.")
	.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is an extra caption to be displayed on the control's background.")
	.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2)
	.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,True)
	.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"<img>logo:64</img>")
	.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,4)
	.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width-twidth")
	.EndUpdate()
End With

C++

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

	#import <ExRadialMenu.dll>
	using namespace EXRADIALMENULib;
*/
EXRADIALMENULib::IRadialMenuPtr spRadialMenu1 = GetDlgItem(IDC_RADIALMENU1)->GetControlUnknown();
spRadialMenu1->BeginUpdate();
spRadialMenu1->PutExpanded(VARIANT_TRUE);
spRadialMenu1->PutMinVisibleCount(6);
spRadialMenu1->GetItems()->PutToString(L"Item 1,Item 2,Item 3,Item 4");
spRadialMenu1->PutCaption(EXRADIALMENULib::exLayerCaption,"This is a caption to be displayed on the control's background.");
spRadialMenu1->PutExtraCaption("extra",EXRADIALMENULib::exLayerCaption,"This is an extra caption to be displayed on the control's background.");
spRadialMenu1->PutExtraCaption("extra",EXRADIALMENULib::exLayerCaptionAnchor,long(2));
spRadialMenu1->PutExtraCaption("extra",EXRADIALMENULib::exLayerCaptionWordWrap,VARIANT_TRUE);
spRadialMenu1->PutExtraCaption("extralogo",EXRADIALMENULib::exLayerCaption,"<img>logo:64</img>");
spRadialMenu1->PutExtraCaption("extralogo",EXRADIALMENULib::exLayerCaptionAnchor,long(4));
spRadialMenu1->PutExtraCaption("extralogo",EXRADIALMENULib::exLayerCaptionLeft,"width-twidth");
spRadialMenu1->EndUpdate();

C++ Builder

RadialMenu1->BeginUpdate();
RadialMenu1->Expanded = true;
RadialMenu1->MinVisibleCount = 6;
RadialMenu1->Items->ToString = L"Item 1,Item 2,Item 3,Item 4";
RadialMenu1->Caption[Exradialmenulib_tlb::PropertyLayerCaptionEnum::exLayerCaption] = TVariant("This is a caption to be displayed on the control's background.");
RadialMenu1->ExtraCaption[TVariant("extra"),Exradialmenulib_tlb::PropertyLayerCaptionEnum::exLayerCaption] = TVariant("This is an extra caption to be displayed on the control's background.");
RadialMenu1->ExtraCaption[TVariant("extra"),Exradialmenulib_tlb::PropertyLayerCaptionEnum::exLayerCaptionAnchor] = TVariant(2);
RadialMenu1->ExtraCaption[TVariant("extra"),Exradialmenulib_tlb::PropertyLayerCaptionEnum::exLayerCaptionWordWrap] = TVariant(true);
RadialMenu1->ExtraCaption[TVariant("extralogo"),Exradialmenulib_tlb::PropertyLayerCaptionEnum::exLayerCaption] = TVariant("<img>logo:64</img>");
RadialMenu1->ExtraCaption[TVariant("extralogo"),Exradialmenulib_tlb::PropertyLayerCaptionEnum::exLayerCaptionAnchor] = TVariant(4);
RadialMenu1->ExtraCaption[TVariant("extralogo"),Exradialmenulib_tlb::PropertyLayerCaptionEnum::exLayerCaptionLeft] = TVariant("width-twidth");
RadialMenu1->EndUpdate();

C#

exradialmenu1.BeginUpdate();
exradialmenu1.Expanded = true;
exradialmenu1.MinVisibleCount = 6;
exradialmenu1.Items.ToString = "Item 1,Item 2,Item 3,Item 4";
exradialmenu1.set_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is a caption to be displayed on the control's background.");
exradialmenu1.set_ExtraCaption("extra",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is an extra caption to be displayed on the control's background.");
exradialmenu1.set_ExtraCaption("extra",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2);
exradialmenu1.set_ExtraCaption("extra",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,true);
exradialmenu1.set_ExtraCaption("extralogo",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"<img>logo:64</img>");
exradialmenu1.set_ExtraCaption("extralogo",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,4);
exradialmenu1.set_ExtraCaption("extralogo",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width-twidth");
exradialmenu1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	RadialMenu1.BeginUpdate();
	RadialMenu1.Expanded = true;
	RadialMenu1.MinVisibleCount = 6;
	RadialMenu1.Items.ToString = "Item 1,Item 2,Item 3,Item 4";
	RadialMenu1.Caption(0) = "This is a caption to be displayed on the control's background.";
	RadialMenu1.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background.";
	RadialMenu1.ExtraCaption("extra",3) = 2;
	RadialMenu1.ExtraCaption("extra",8) = true;
	RadialMenu1.ExtraCaption("extralogo",0) = "<img>logo:64</img>";
	RadialMenu1.ExtraCaption("extralogo",3) = 4;
	RadialMenu1.ExtraCaption("extralogo",4) = "width-twidth";
	RadialMenu1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With RadialMenu1
		.BeginUpdate 
		.Expanded = True
		.MinVisibleCount = 6
		.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
		.Caption(0) = "This is a caption to be displayed on the control's background."
		.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."
		.ExtraCaption("extra",3) = 2
		.ExtraCaption("extra",8) = True
		.ExtraCaption("extralogo",0) = "<img>logo:64</img>"
		.ExtraCaption("extralogo",3) = 4
		.ExtraCaption("extralogo",4) = "width-twidth"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axRadialMenu1.BeginUpdate();
axRadialMenu1.Expanded = true;
axRadialMenu1.MinVisibleCount = 6;
axRadialMenu1.Items.ToString = "Item 1,Item 2,Item 3,Item 4";
axRadialMenu1.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is a caption to be displayed on the control's background.");
axRadialMenu1.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is an extra caption to be displayed on the control's background.");
axRadialMenu1.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2);
axRadialMenu1.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,true);
axRadialMenu1.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"<img>logo:64</img>");
axRadialMenu1.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,4);
axRadialMenu1.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width-twidth");
axRadialMenu1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	exradialmenu1.BeginUpdate();
	exradialmenu1.Expanded(true);
	exradialmenu1.MinVisibleCount(6);
	exradialmenu1.Items().ToString("Item 1,Item 2,Item 3,Item 4");
	exradialmenu1.Caption(0/*exLayerCaption*/,"This is a caption to be displayed on the control's background.");
	exradialmenu1.ExtraCaption("extra",0/*exLayerCaption*/,"This is an extra caption to be displayed on the control's background.");
	exradialmenu1.ExtraCaption("extra",3/*exLayerCaptionAnchor*/,COMVariant::createFromInt(2));
	exradialmenu1.ExtraCaption("extra",8/*exLayerCaptionWordWrap*/,COMVariant::createFromBoolean(true));
	exradialmenu1.ExtraCaption("extralogo",0/*exLayerCaption*/,"<img>logo:64</img>");
	exradialmenu1.ExtraCaption("extralogo",3/*exLayerCaptionAnchor*/,COMVariant::createFromInt(4));
	exradialmenu1.ExtraCaption("extralogo",4/*exLayerCaptionLeft*/,"width-twidth");
	exradialmenu1.EndUpdate();
}

Delphi 8 (.NET only)

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,'This is a caption to be displayed on the control''s background.');
	set_ExtraCaption('extra',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,'This is an extra caption to be displayed on the control''s background.');
	set_ExtraCaption('extra',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,TObject(2));
	set_ExtraCaption('extra',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,TObject(True));
	set_ExtraCaption('extralogo',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,'<img>logo:64</img>');
	set_ExtraCaption('extralogo',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,TObject(4));
	set_ExtraCaption('extralogo',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,'width-twidth');
	EndUpdate();
end

Delphi (standard)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	Caption[EXRADIALMENULib_TLB.exLayerCaption] := 'This is a caption to be displayed on the control''s background.';
	ExtraCaption['extra',EXRADIALMENULib_TLB.exLayerCaption] := 'This is an extra caption to be displayed on the control''s background.';
	ExtraCaption['extra',EXRADIALMENULib_TLB.exLayerCaptionAnchor] := OleVariant(2);
	ExtraCaption['extra',EXRADIALMENULib_TLB.exLayerCaptionWordWrap] := OleVariant(True);
	ExtraCaption['extralogo',EXRADIALMENULib_TLB.exLayerCaption] := '<img>logo:64</img>';
	ExtraCaption['extralogo',EXRADIALMENULib_TLB.exLayerCaptionAnchor] := OleVariant(4);
	ExtraCaption['extralogo',EXRADIALMENULib_TLB.exLayerCaptionLeft] := 'width-twidth';
	EndUpdate();
end

VFP

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.MinVisibleCount = 6
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Object.Caption(0) = "This is a caption to be displayed on the control's background."
	.Object.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."
	.Object.ExtraCaption("extra",3) = 2
	.Object.ExtraCaption("extra",8) = .T.
	.Object.ExtraCaption("extralogo",0) = "<img>logo:64</img>"
	.Object.ExtraCaption("extralogo",3) = 4
	.Object.ExtraCaption("extralogo",4) = "width-twidth"
	.EndUpdate
endwith

dBASE Plus

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Template = [Caption(0) = "This is a caption to be displayed on the control's background."] // oRadialMenu.Caption(0) = "This is a caption to be displayed on the control's background."
oRadialMenu.Template = [ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."] // oRadialMenu.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."
oRadialMenu.Template = [ExtraCaption("extra",3) = 2] // oRadialMenu.ExtraCaption("extra",3) = 2
oRadialMenu.Template = [ExtraCaption("extra",8) = True] // oRadialMenu.ExtraCaption("extra",8) = true
oRadialMenu.Template = [ExtraCaption("extralogo",0) = "<img>logo:64</img>"] // oRadialMenu.ExtraCaption("extralogo",0) = "<img>logo:64</img>"
oRadialMenu.Template = [ExtraCaption("extralogo",3) = 4] // oRadialMenu.ExtraCaption("extralogo",3) = 4
oRadialMenu.Template = [ExtraCaption("extralogo",4) = "width-twidth"] // oRadialMenu.ExtraCaption("extralogo",4) = "width-twidth"
oRadialMenu.EndUpdate()

XBasic (Alpha Five)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Template = "Caption(0) = `This is a caption to be displayed on the control's background.`" // oRadialMenu.Caption(0) = "This is a caption to be displayed on the control's background."
oRadialMenu.Template = "ExtraCaption(`extra`,0) = `This is an extra caption to be displayed on the control's background.`" // oRadialMenu.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."
oRadialMenu.Template = "ExtraCaption(`extra`,3) = 2" // oRadialMenu.ExtraCaption("extra",3) = 2
oRadialMenu.Template = "ExtraCaption(`extra`,8) = True" // oRadialMenu.ExtraCaption("extra",8) = .t.
oRadialMenu.Template = "ExtraCaption(`extralogo`,0) = `<img>logo:64</img>`" // oRadialMenu.ExtraCaption("extralogo",0) = "<img>logo:64</img>"
oRadialMenu.Template = "ExtraCaption(`extralogo`,3) = 4" // oRadialMenu.ExtraCaption("extralogo",3) = 4
oRadialMenu.Template = "ExtraCaption(`extralogo`,4) = `width-twidth`" // oRadialMenu.ExtraCaption("extralogo",4) = "width-twidth"
oRadialMenu.EndUpdate()

Visual Objects


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:MinVisibleCount := 6
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4"
oDCOCX_Exontrol1:[Caption,exLayerCaption] := "This is a caption to be displayed on the control's background."
oDCOCX_Exontrol1:[ExtraCaption,"extra",exLayerCaption] := "This is an extra caption to be displayed on the control's background."
oDCOCX_Exontrol1:[ExtraCaption,"extra",exLayerCaptionAnchor] := 2
oDCOCX_Exontrol1:[ExtraCaption,"extra",exLayerCaptionWordWrap] := true
oDCOCX_Exontrol1:[ExtraCaption,"extralogo",exLayerCaption] := "<img>logo:64</img>"
oDCOCX_Exontrol1:[ExtraCaption,"extralogo",exLayerCaptionAnchor] := 4
oDCOCX_Exontrol1:[ExtraCaption,"extralogo",exLayerCaptionLeft] := "width-twidth"
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oRadialMenu

oRadialMenu = ole_1.Object
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.MinVisibleCount = 6
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
oRadialMenu.Caption(0,"This is a caption to be displayed on the control's background.")
oRadialMenu.ExtraCaption("extra",0,"This is an extra caption to be displayed on the control's background.")
oRadialMenu.ExtraCaption("extra",3,2)
oRadialMenu.ExtraCaption("extra",8,true)
oRadialMenu.ExtraCaption("extralogo",0,"<img>logo:64</img>")
oRadialMenu.ExtraCaption("extralogo",3,4)
oRadialMenu.ExtraCaption("extralogo",4,"width-twidth")
oRadialMenu.EndUpdate()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComMinVisibleCount to 6
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3,Item 4"
	Send Destroy to hoItems
	Set ComCaption OLEexLayerCaption to "This is a caption to be displayed on the control's background."
	Set ComExtraCaption "extra" OLEexLayerCaption to "This is an extra caption to be displayed on the control's background."
	Set ComExtraCaption "extra" OLEexLayerCaptionAnchor to 2
	Set ComExtraCaption "extra" OLEexLayerCaptionWordWrap to True
	Set ComExtraCaption "extralogo" OLEexLayerCaption to "<img>logo:64</img>"
	Set ComExtraCaption "extralogo" OLEexLayerCaptionAnchor to 4
	Set ComExtraCaption "extralogo" OLEexLayerCaptionLeft to "width-twidth"
	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 oRadialMenu

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

	oRadialMenu := XbpActiveXControl():new( oForm:drawingArea )
	oRadialMenu:CLSID  := "Exontrol.RadialMenu.1" /*{1604BDE1-D48F-4D3F-B51B-49C0CD74236C}*/
	oRadialMenu:create(,, {10,60},{610,370} )

		oRadialMenu:BeginUpdate()
		oRadialMenu:Expanded := .T.
		oRadialMenu:MinVisibleCount := 6
		oRadialMenu:Items():ToString := "Item 1,Item 2,Item 3,Item 4"
		oRadialMenu:SetProperty("Caption",0/*exLayerCaption*/,"This is a caption to be displayed on the control's background.")
		oRadialMenu:SetProperty("ExtraCaption","extra",0/*exLayerCaption*/,"This is an extra caption to be displayed on the control's background.")
		oRadialMenu:SetProperty("ExtraCaption","extra",3/*exLayerCaptionAnchor*/,2)
		oRadialMenu:SetProperty("ExtraCaption","extra",8/*exLayerCaptionWordWrap*/,.T.)
		oRadialMenu:SetProperty("ExtraCaption","extralogo",0/*exLayerCaption*/,"<img>logo:64</img>")
		oRadialMenu:SetProperty("ExtraCaption","extralogo",3/*exLayerCaptionAnchor*/,4)
		oRadialMenu:SetProperty("ExtraCaption","extralogo",4/*exLayerCaptionLeft*/,"width-twidth")
		oRadialMenu:EndUpdate()

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