The SelectedIndex property gets or sets a value that indicates index to be selected. The SelectItem event notifies once the user selects an item. The SelectItem event is fired when user clicks an item with no child items. The BrowseItem event notifies when a new item has been selected / browsed. When the user selects a new item, it is displayed on the parent portion of the control, while its content / children is displayed around. The SelectParent event occurs once the user clicks the parent of the item. The PointerPicture property indicates the picture to be shown on the pointer zone's background. The SelBackColor / SelBackAlpha property specifies the selection background color. The SelForeColor property specifies the selection foreground color.

The following sample shows how you can select an item, once the user clicks it:

VBA (MS Access, Excell...)

' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As Object)
	' SelectedIndex(3) = Item.Index
End Sub

With RadialMenu1
	.BeginUpdate 
	.SelBackAlpha(1) = 32
	.SelBackAlpha(2) = 128
	.SelForeColor(3) = RGB(0,0,0)
	.RadialLineSize(8) = -1
	.RadialLineAlpha(8) = 32
	.RadialLineColor(11) = -1
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.SelectedIndex(3) = 0
	.EndUpdate 
End With

VB6

' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As EXRADIALMENULibCtl.IItem)
	' SelectedIndex(3) = Item.Index
End Sub

With RadialMenu1
	.BeginUpdate 
	.SelBackAlpha(exRadialItems) = 32
	.SelBackAlpha(exRadialSubItems) = 128
	.SelForeColor(exRadialFullItems) = RGB(0,0,0)
	.RadialLineSize(exRadialHotParent) = -1
	.RadialLineAlpha(exRadialHotParent) = 32
	.RadialLineColor(exRadialHotFullItem) = -1
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.SelectedIndex(exRadialFullItems) = 0
	.EndUpdate 
End With

VB.NET

' SelectItem event - Notifies once the user selects an item.
Private Sub Exradialmenu1_SelectItem(ByVal sender As System.Object,ByVal Item As exontrol.EXRADIALMENULib.Item) Handles Exradialmenu1.SelectItem
	' SelectedIndex(3) = Item.Index
End Sub

With Exradialmenu1
	.BeginUpdate()
	.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
	.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
	.set_SelForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(0,0,0))
	.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
	.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
	.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.set_SelectedIndex(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.EndUpdate()
End With

VB.NET for /COM

' SelectItem event - Notifies once the user selects an item.
Private Sub AxRadialMenu1_SelectItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent) Handles AxRadialMenu1.SelectItem
	' SelectedIndex(3) = Item.Index
End Sub

With AxRadialMenu1
	.BeginUpdate()
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
	.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.EndUpdate()
End With

C++

// SelectItem event - Notifies once the user selects an item.
void OnSelectItemRadialMenu1(LPDISPATCH   Item)
{
	// SelectedIndex(3) = Item.Index
}

/*
	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->PutSelBackAlpha(EXRADIALMENULib::exRadialItems,32);
spRadialMenu1->PutSelBackAlpha(EXRADIALMENULib::exRadialSubItems,128);
spRadialMenu1->PutSelForeColor(EXRADIALMENULib::exRadialFullItems,RGB(0,0,0));
spRadialMenu1->PutRadialLineSize(EXRADIALMENULib::exRadialHotParent,-1);
spRadialMenu1->PutRadialLineAlpha(EXRADIALMENULib::exRadialHotParent,32);
spRadialMenu1->PutRadialLineColor(EXRADIALMENULib::exRadialHotFullItem,-1);
spRadialMenu1->PutExpanded(VARIANT_TRUE);
spRadialMenu1->GetItems()->PutToString(L"Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8");
spRadialMenu1->PutSelectedIndex(EXRADIALMENULib::exRadialFullItems,0);
spRadialMenu1->EndUpdate();

C++ Builder

// SelectItem event - Notifies once the user selects an item.
void __fastcall TForm1::RadialMenu1SelectItem(TObject *Sender,Exradialmenulib_tlb::IItem   *Item)
{
	// SelectedIndex(3) = Item.Index
}

RadialMenu1->BeginUpdate();
RadialMenu1->SelBackAlpha[Exradialmenulib_tlb::RadialItemsEnum::exRadialItems] = 32;
RadialMenu1->SelBackAlpha[Exradialmenulib_tlb::RadialItemsEnum::exRadialSubItems] = 128;
RadialMenu1->SelForeColor[Exradialmenulib_tlb::RadialItemsEnum::exRadialFullItems] = RGB(0,0,0);
RadialMenu1->RadialLineSize[Exradialmenulib_tlb::RadialLineEnum::exRadialHotParent] = -1;
RadialMenu1->RadialLineAlpha[Exradialmenulib_tlb::RadialLineEnum::exRadialHotParent] = 32;
RadialMenu1->RadialLineColor[Exradialmenulib_tlb::RadialLineEnum::exRadialHotFullItem] = -1;
RadialMenu1->Expanded = true;
RadialMenu1->Items->ToString = L"Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8";
RadialMenu1->SelectedIndex[Exradialmenulib_tlb::RadialItemsEnum::exRadialFullItems] = 0;
RadialMenu1->EndUpdate();

C#

// SelectItem event - Notifies once the user selects an item.
private void exradialmenu1_SelectItem(object sender,exontrol.EXRADIALMENULib.Item   Item)
{
	// SelectedIndex(3) = Item.Index
}
//this.exradialmenu1.SelectItem += new exontrol.EXRADIALMENULib.exg2antt.SelectItemEventHandler(this.exradialmenu1_SelectItem);

exradialmenu1.BeginUpdate();
exradialmenu1.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,32);
exradialmenu1.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128);
exradialmenu1.set_SelForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(0,0,0));
exradialmenu1.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
exradialmenu1.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
exradialmenu1.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1);
exradialmenu1.Expanded = true;
exradialmenu1.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8";
exradialmenu1.set_SelectedIndex(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0);
exradialmenu1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<SCRIPT FOR="RadialMenu1" EVENT="SelectItem(Item)" LANGUAGE="JScript">
	// SelectedIndex(3) = Item.Index
</SCRIPT>

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

<SCRIPT LANGUAGE="JScript">
function Init()
{
	RadialMenu1.BeginUpdate();
	RadialMenu1.SelBackAlpha(1) = 32;
	RadialMenu1.SelBackAlpha(2) = 128;
	RadialMenu1.SelForeColor(3) = 0;
	RadialMenu1.RadialLineSize(8) = -1;
	RadialMenu1.RadialLineAlpha(8) = 32;
	RadialMenu1.RadialLineColor(11) = -1;
	RadialMenu1.Expanded = true;
	RadialMenu1.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8";
	RadialMenu1.SelectedIndex(3) = 0;
	RadialMenu1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function RadialMenu1_SelectItem(Item)
	' SelectedIndex(3) = Item.Index
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With RadialMenu1
		.BeginUpdate 
		.SelBackAlpha(1) = 32
		.SelBackAlpha(2) = 128
		.SelForeColor(3) = RGB(0,0,0)
		.RadialLineSize(8) = -1
		.RadialLineAlpha(8) = 32
		.RadialLineColor(11) = -1
		.Expanded = True
		.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
		.SelectedIndex(3) = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

// SelectItem event - Notifies once the user selects an item.
private void axRadialMenu1_SelectItem(object sender, AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent e)
{
	// SelectedIndex(3) = Item.Index
}
//this.axRadialMenu1.SelectItem += new AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEventHandler(this.axRadialMenu1_SelectItem);

axRadialMenu1.BeginUpdate();
axRadialMenu1.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32);
axRadialMenu1.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128);
axRadialMenu1.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,(uint)ColorTranslator.ToWin32(Color.FromArgb(0,0,0)));
axRadialMenu1.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
axRadialMenu1.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
axRadialMenu1.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1);
axRadialMenu1.Expanded = true;
axRadialMenu1.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8";
axRadialMenu1.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0);
axRadialMenu1.EndUpdate();

X++ (Dynamics Ax 2009)

// SelectItem event - Notifies once the user selects an item.
void onEvent_SelectItem(COM   _Item)
{
	// SelectedIndex(3) = Item.Index
	;
}

public void init()
{
	;

	super();

	exradialmenu1.BeginUpdate();
	exradialmenu1.SelBackAlpha(1/*exRadialItems*/,32);
	exradialmenu1.SelBackAlpha(2/*exRadialSubItems*/,128);
	exradialmenu1.SelForeColor(3/*exRadialFullItems*/,WinApi::RGB2int(0,0,0));
	exradialmenu1.RadialLineSize(8/*exRadialHotParent*/,-1);
	exradialmenu1.RadialLineAlpha(8/*exRadialHotParent*/,32);
	exradialmenu1.RadialLineColor(11/*exRadialHotFullItem*/,-1);
	exradialmenu1.Expanded(true);
	exradialmenu1.Items().ToString("Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8");
	exradialmenu1.SelectedIndex(3/*exRadialFullItems*/,0);
	exradialmenu1.EndUpdate();
}

Delphi 8 (.NET only)

// SelectItem event - Notifies once the user selects an item.
procedure TWinForm1.AxRadialMenu1_SelectItem(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent);
begin
	// SelectedIndex(3) = Item.Index
end;

with AxRadialMenu1 do
begin
	BeginUpdate();
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32);
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128);
	set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,$0);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$ffffffff);
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0);
	EndUpdate();
end

Delphi (standard)

// SelectItem event - Notifies once the user selects an item.
procedure TForm1.RadialMenu1SelectItem(ASender: TObject; Item : IItem);
begin
	// SelectedIndex(3) = Item.Index
end;

with RadialMenu1 do
begin
	BeginUpdate();
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialItems] := 32;
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialSubItems] := 128;
	SelForeColor[EXRADIALMENULib_TLB.exRadialFullItems] := $0;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotParent] := -1;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotParent] := 32;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $ffffffff;
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	SelectedIndex[EXRADIALMENULib_TLB.exRadialFullItems] := 0;
	EndUpdate();
end

VFP

*** SelectItem event - Notifies once the user selects an item. ***
LPARAMETERS Item
	*** SelectedIndex(3) = Item.Index

with thisform.RadialMenu1
	.BeginUpdate
	.Object.SelBackAlpha(1) = 32
	.Object.SelBackAlpha(2) = 128
	.Object.SelForeColor(3) = RGB(0,0,0)
	.Object.RadialLineSize(8) = -1
	.Object.RadialLineAlpha(8) = 32
	.Object.RadialLineColor(11) = -1
	.Expanded = .T.
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.Object.SelectedIndex(3) = 0
	.EndUpdate
endwith

dBASE Plus

/*
with (this.EXRADIALMENUACTIVEXCONTROL1.nativeObject)
	SelectItem = class::nativeObject_SelectItem
endwith
*/
// Notifies once the user selects an item.
function nativeObject_SelectItem(Item)
	/* SelectedIndex(3) = Item.Index */
	oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
return

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Template = [SelBackAlpha(1) = 32] // oRadialMenu.SelBackAlpha(1) = 32
oRadialMenu.Template = [SelBackAlpha(2) = 128] // oRadialMenu.SelBackAlpha(2) = 128
oRadialMenu.Template = [SelForeColor(3) = 0] // oRadialMenu.SelForeColor(3) = 0x0
oRadialMenu.Template = [RadialLineSize(8) = -1] // oRadialMenu.RadialLineSize(8) = -1
oRadialMenu.Template = [RadialLineAlpha(8) = 32] // oRadialMenu.RadialLineAlpha(8) = 32
oRadialMenu.Template = [RadialLineColor(11) = -1] // oRadialMenu.RadialLineColor(11) = -1
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Template = [SelectedIndex(3) = 0] // oRadialMenu.SelectedIndex(3) = 0
oRadialMenu.EndUpdate()

XBasic (Alpha Five)

' Notifies once the user selects an item.
function SelectItem as v (Item  as  OLE::Exontrol.RadialMenu.1::IItem)
	' SelectedIndex(3) = Item.Index
	oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Template = "SelBackAlpha(1) = 32" // oRadialMenu.SelBackAlpha(1) = 32
oRadialMenu.Template = "SelBackAlpha(2) = 128" // oRadialMenu.SelBackAlpha(2) = 128
oRadialMenu.Template = "SelForeColor(3) = 0" // oRadialMenu.SelForeColor(3) = 0
oRadialMenu.Template = "RadialLineSize(8) = -1" // oRadialMenu.RadialLineSize(8) = -1
oRadialMenu.Template = "RadialLineAlpha(8) = 32" // oRadialMenu.RadialLineAlpha(8) = 32
oRadialMenu.Template = "RadialLineColor(11) = -1" // oRadialMenu.RadialLineColor(11) = -1
oRadialMenu.Expanded = .t.
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.Template = "SelectedIndex(3) = 0" // oRadialMenu.SelectedIndex(3) = 0
oRadialMenu.EndUpdate()

Visual Objects

METHOD OCX_Exontrol1SelectItem(Item) CLASS MainDialog
	// SelectItem event - Notifies once the user selects an item.
	// SelectedIndex(3) = Item.Index

RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[SelBackAlpha,exRadialItems] := 32
oDCOCX_Exontrol1:[SelBackAlpha,exRadialSubItems] := 128
oDCOCX_Exontrol1:[SelForeColor,exRadialFullItems] := RGB(0,0,0)
oDCOCX_Exontrol1:[RadialLineSize,exRadialHotParent] := -1
oDCOCX_Exontrol1:[RadialLineAlpha,exRadialHotParent] := 32
oDCOCX_Exontrol1:[RadialLineColor,exRadialHotFullItem] := -1
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:Items:ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:[SelectedIndex,exRadialFullItems] := 0
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

/*begin event SelectItem(oleobject  Item) - Notifies once the user selects an item.*/
/*
	SelectedIndex(3) = Item.Index
	oRadialMenu = ole_1.Object
*/
/*end event SelectItem*/

OleObject oRadialMenu

oRadialMenu = ole_1.Object
oRadialMenu.BeginUpdate()
oRadialMenu.SelBackAlpha(1,32)
oRadialMenu.SelBackAlpha(2,128)
oRadialMenu.SelForeColor(3,RGB(0,0,0))
oRadialMenu.RadialLineSize(8,-1)
oRadialMenu.RadialLineAlpha(8,32)
oRadialMenu.RadialLineColor(11,-1)
oRadialMenu.Expanded = true
oRadialMenu.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.SelectedIndex(3,0)
oRadialMenu.EndUpdate()

Visual DataFlex

// Notifies once the user selects an item.
Procedure OnComSelectItem Variant   llItem
	Forward Send OnComSelectItem llItem
	// SelectedIndex(3) = Item.Index
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelBackAlpha OLEexRadialItems to 32
	Set ComSelBackAlpha OLEexRadialSubItems to 128
	Set ComSelForeColor OLEexRadialFullItems to (RGB(0,0,0))
	Set ComRadialLineSize OLEexRadialHotParent to -1
	Set ComRadialLineAlpha OLEexRadialHotParent to 32
	Set ComRadialLineColor OLEexRadialHotFullItem to -1
	Set ComExpanded to True
	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,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Set ComSelectedIndex OLEexRadialFullItems to 0
	Send ComEndUpdate
End_Procedure

XBase++

PROCEDURE OnSelectItem(oRadialMenu,Item)
	/*SelectedIndex(3) = Item.Index*/

RETURN

#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:SelectItem := {|Item| OnSelectItem(oRadialMenu,Item)} /*Notifies once the user selects an item.*/

		oRadialMenu:BeginUpdate()
		oRadialMenu:SetProperty("SelBackAlpha",1/*exRadialItems*/,32)
		oRadialMenu:SetProperty("SelBackAlpha",2/*exRadialSubItems*/,128)
		oRadialMenu:SetProperty("SelForeColor",3/*exRadialFullItems*/,AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oRadialMenu:SetProperty("RadialLineSize",8/*exRadialHotParent*/,-1)
		oRadialMenu:SetProperty("RadialLineAlpha",8/*exRadialHotParent*/,32)
		oRadialMenu:SetProperty("RadialLineColor",11/*exRadialHotFullItem*/,-1)
		oRadialMenu:Expanded := .T.
		oRadialMenu:Items():ToString := "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
		oRadialMenu:SetProperty("SelectedIndex",3/*exRadialFullItems*/,0)
		oRadialMenu:EndUpdate()

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