By default, the ItemsDelimiter property is "\r\n" ( Chr(13) & Chr(10), Carriage return-linefeed combination ). The ItemsDelimiter property specifies the delimiter sequence for drop down items. The ItemValueDelimiter property specifies the delimiter sequence for drop down value. The Caption property specifies the caption to be shown on the item. If the Caption property includes the ItemsDelimiter value, it indicates that the toolbar's item displays a drop down list, when user clicks the item. Each part of the Caption between two delimiters indicates an item in the drop down. For instance, "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3" indicates that the toolbar's item displays the "Item A", and it's drop down list contains "Item A" with the value 1, "Item B" with the value 2 and "Item C" with the value 3. 

How can I display a drop-down panel?

VBA (MS Access, Excell...)

' Select event - Notifies once the user clicks the item.
Private Sub ToolBarCRD1_Select(ByVal ID As Variant,ByVal SelectedID As Variant)
	With ToolBarCRD1
		Debug.Print( "Select" )
		Debug.Print( SelectedID )
	End With
End Sub

With ToolBarCRD1
	.ItemsDelimiter = ";"
	.Format = "1,-1,2"
	.Item(1).Caption = "Exit"
	.Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
End With

VB6

' Select event - Notifies once the user clicks the item.
Private Sub ToolBarCRD1_Select(ByVal ID As Variant,ByVal SelectedID As Variant)
	With ToolBarCRD1
		Debug.Print( "Select" )
		Debug.Print( SelectedID )
	End With
End Sub

With ToolBarCRD1
	.ItemsDelimiter = ";"
	.Format = "1,-1,2"
	.Item(1).Caption = "Exit"
	.Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
End With

VB.NET

' Select event - Notifies once the user clicks the item.
Private Sub Extoolbarcrd1_Select(ByVal sender As System.Object,ByVal ID As Object,ByVal SelectedID As Object) Handles Extoolbarcrd1.Select
	With Extoolbarcrd1
		Debug.Print( "Select" )
		Debug.Print( SelectedID )
	End With
End Sub

With Extoolbarcrd1
	.ItemsDelimiter = ";"
	.Format = "1,-1,2"
	.Item(1).Caption = "Exit"
	.Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
End With

VB.NET for /COM

' Select event - Notifies once the user clicks the item.
Private Sub AxToolBarCRD1_Select(ByVal sender As System.Object, ByVal e As AxEXTOOLBARCRDLib._IToolBarCRDEvents_SelectEvent) Handles AxToolBarCRD1.Select
	With AxToolBarCRD1
		Debug.Print( "Select" )
		Debug.Print( e.selectedID )
	End With
End Sub

With AxToolBarCRD1
	.ItemsDelimiter = ";"
	.Format = "1,-1,2"
	.get_Item(1).Caption = "Exit"
	.get_Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
End With

C++

// Select event - Notifies once the user clicks the item.
void OnSelectToolBarCRD1(VARIANT   ID,VARIANT   SelectedID)
{
	/*
		Copy and paste the following directives to your header file as
		it defines the namespace 'EXTOOLBARCRDLib' for the library: 'ExToolBar.CRD 1.0 Control Library'
		#import <ExToolBar.CRD.dll>
		using namespace EXTOOLBARCRDLib;
	*/
	EXTOOLBARCRDLib::IToolBarCRDPtr spToolBarCRD1 = GetDlgItem(IDC_TOOLBARCRD1)->GetControlUnknown();
	OutputDebugStringW( L"Select" );
	OutputDebugStringW( L"SelectedID" );
}

EXTOOLBARCRDLib::IToolBarCRDPtr spToolBarCRD1 = GetDlgItem(IDC_TOOLBARCRD1)->GetControlUnknown();
spToolBarCRD1->PutItemsDelimiter(L";");
spToolBarCRD1->PutFormat(L"1,-1,2");
spToolBarCRD1->GetItem(long(1))->PutCaption(L"Exit");
spToolBarCRD1->GetItem(long(2))->PutCaption(L"Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3");

C++ Builder

// Select event - Notifies once the user clicks the item.
void __fastcall TForm1::ToolBarCRD1Select(TObject *Sender,Variant   ID,Variant   SelectedID)
{
	OutputDebugString( L"Select" );
	OutputDebugString( L"SelectedID" );
}

ToolBarCRD1->ItemsDelimiter = L";";
ToolBarCRD1->Format = L"1,-1,2";
ToolBarCRD1->Item[TVariant(1)]->Caption = L"Exit";
ToolBarCRD1->Item[TVariant(2)]->Caption = L"Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3";

C#

// Select event - Notifies once the user clicks the item.
private void extoolbarcrd1_Select(object sender,object   ID,object   SelectedID)
{
	System.Diagnostics.Debug.Print( "Select" );
	System.Diagnostics.Debug.Print( SelectedID.ToString() );
}
//this.extoolbarcrd1.Select += new exontrol.EXTOOLBARCRDLib.exg2antt.SelectEventHandler(this.extoolbarcrd1_Select);

extoolbarcrd1.ItemsDelimiter = ";";
extoolbarcrd1.Format = "1,-1,2";
extoolbarcrd1[1].Caption = "Exit";
extoolbarcrd1[2].Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3";

JScript/JavaScript

<BODY onload="Init()">
<SCRIPT FOR="ToolBarCRD1" EVENT="Select(ID,SelectedID)" LANGUAGE="JScript">
	alert( "Select" );
	alert( SelectedID );
</SCRIPT>

<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	ToolBarCRD1.ItemsDelimiter = ";";
	ToolBarCRD1.Format = "1,-1,2";
	ToolBarCRD1.Item(1).Caption = "Exit";
	ToolBarCRD1.Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3";
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBarCRD1_Select(ID,SelectedID)
	With ToolBarCRD1
		alert( "Select" )
		alert( SelectedID )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ToolBarCRD1
		.ItemsDelimiter = ";"
		.Format = "1,-1,2"
		.Item(1).Caption = "Exit"
		.Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

// Select event - Notifies once the user clicks the item.
private void axToolBarCRD1_Select(object sender, AxEXTOOLBARCRDLib._IToolBarCRDEvents_SelectEvent e)
{
	System.Diagnostics.Debug.Print( "Select" );
	System.Diagnostics.Debug.Print( e.selectedID.ToString() );
}
//this.axToolBarCRD1.Select += new AxEXTOOLBARCRDLib._IToolBarCRDEvents_SelectEventHandler(this.axToolBarCRD1_Select);

axToolBarCRD1.ItemsDelimiter = ";";
axToolBarCRD1.Format = "1,-1,2";
axToolBarCRD1[1].Caption = "Exit";
axToolBarCRD1[2].Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3";

X++ (Dynamics Ax 2009)

// Select event - Notifies once the user clicks the item.
void onEvent_Select(COMVariant   _ID,COMVariant   _SelectedID)
{
	;
	print( "Select" );
	print( _SelectedID );
}

public void init()
{
	COM com_Item;
	anytype var_Item;
	;

	super();

	extoolbarcrd1.ItemsDelimiter(";");
	extoolbarcrd1.Format("1,-1,2");
	var_Item = COM::createFromObject(extoolbarcrd1.Item(COMVariant::createFromInt(1))); com_Item = var_Item;
	com_Item.Caption("Exit");
	var_Item = COM::createFromObject(extoolbarcrd1.Item(COMVariant::createFromInt(2))); com_Item = var_Item;
	com_Item.Caption("Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3");
}

Delphi 8 (.NET only)

// Select event - Notifies once the user clicks the item.
procedure TWinForm1.AxToolBarCRD1_Select(sender: System.Object; e: AxEXTOOLBARCRDLib._IToolBarCRDEvents_SelectEvent);
begin
	with AxToolBarCRD1 do
	begin
		OutputDebugString( 'Select' );
		OutputDebugString( e.selectedID );
	end
end;

with AxToolBarCRD1 do
begin
	ItemsDelimiter := ';';
	Format := '1,-1,2';
	get_Item(TObject(1)).Caption := 'Exit';
	get_Item(TObject(2)).Caption := 'Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3';
end

Delphi (standard)

// Select event - Notifies once the user clicks the item.
procedure TForm1.ToolBarCRD1Select(ASender: TObject; ID : OleVariant;SelectedID : OleVariant);
begin
	with ToolBarCRD1 do
	begin
		OutputDebugString( 'Select' );
		OutputDebugString( SelectedID );
	end
end;

with ToolBarCRD1 do
begin
	ItemsDelimiter := ';';
	Format := '1,-1,2';
	Item[OleVariant(1)].Caption := 'Exit';
	Item[OleVariant(2)].Caption := 'Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3';
end

VFP

*** Select event - Notifies once the user clicks the item. ***
LPARAMETERS ID,SelectedID
	with thisform.ToolBarCRD1
		DEBUGOUT( "Select" )
		DEBUGOUT( SelectedID )
	endwith

with thisform.ToolBarCRD1
	.ItemsDelimiter = ";"
	.Format = "1,-1,2"
	.Item(1).Caption = "Exit"
	.Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
endwith

dBASE Plus

/*
with (this.EXTOOLBAR_CRDACTIVEXCONTROL1.nativeObject)
	Select = class::nativeObject_Select
endwith
*/
// Notifies once the user clicks the item.
function nativeObject_Select(ID,SelectedID)
	oToolBarCRD = form.EXTOOLBAR_CRDACTIVEXCONTROL1.nativeObject
	? "Select" 
	? Str(SelectedID) 
return

local oToolBarCRD,var_Item,var_Item1

oToolBarCRD = form.EXTOOLBAR_CRDACTIVEXCONTROL1.nativeObject
oToolBarCRD.ItemsDelimiter = ";"
oToolBarCRD.Format = "1,-1,2"
// oToolBarCRD.Item(1).Caption = "Exit"
var_Item = oToolBarCRD.Item(1)
with (oToolBarCRD)
	TemplateDef = [dim var_Item]
	TemplateDef = var_Item
	Template = [var_Item.Caption = "Exit"]
endwith
// oToolBarCRD.Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
var_Item1 = oToolBarCRD.Item(2)
with (oToolBarCRD)
	TemplateDef = [dim var_Item1]
	TemplateDef = var_Item1
	Template = [var_Item1.Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"]
endwith

XBasic (Alpha Five)

' Notifies once the user clicks the item.
function Select as v (ID  as  A,SelectedID  as  A)
	oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
	? "Select" 
	? SelectedID 
end function

Dim oToolBarCRD as P
Dim var_Item as local
Dim var_Item1 as local

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.ItemsDelimiter = ";"
oToolBarCRD.Format = "1,-1,2"
' oToolBarCRD.Item(1).Caption = "Exit"
var_Item = oToolBarCRD.Item(1)
oToolBarCRD.TemplateDef = "dim var_Item"
oToolBarCRD.TemplateDef = var_Item
oToolBarCRD.Template = "var_Item.Caption = `Exit`"

' oToolBarCRD.Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
var_Item1 = oToolBarCRD.Item(2)
oToolBarCRD.TemplateDef = "dim var_Item1"
oToolBarCRD.TemplateDef = var_Item1
oToolBarCRD.Template = "var_Item1.Caption = `Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3`"

Visual Objects

METHOD OCX_Exontrol1Select(ID,SelectedID) CLASS MainDialog
	// Select event - Notifies once the user clicks the item.
	OutputDebugString(String2Psz( "Select" ))
	OutputDebugString(String2Psz( AsString(SelectedID) ))
RETURN NIL


oDCOCX_Exontrol1:ItemsDelimiter := ";"
oDCOCX_Exontrol1:Format := "1,-1,2"
oDCOCX_Exontrol1:[Item,1]:Caption := "Exit"
oDCOCX_Exontrol1:[Item,2]:Caption := "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"

PowerBuilder

/*begin event Select(any  ID,any  SelectedID) - Notifies once the user clicks the item.*/
/*
	oToolBarCRD = ole_1.Object
	MessageBox("Information",string( "Select" ))
	MessageBox("Information",string( String(SelectedID) ))
*/
/*end event Select*/

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.ItemsDelimiter = ";"
oToolBarCRD.Format = "1,-1,2"
oToolBarCRD.Item(1).Caption = "Exit"
oToolBarCRD.Item(2).Caption = "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"

Visual DataFlex

// Notifies once the user clicks the item.
Procedure OnComSelect Variant   llID Variant   llSelectedID
	Forward Send OnComSelect llID llSelectedID
	Showln "Select" llSelectedID
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComItemsDelimiter to ";"
	Set ComFormat to "1,-1,2"
	Variant voItem
	Get ComItem 1 to voItem
	Handle hoItem
	Get Create (RefClass(cComItem)) to hoItem
	Set pvComObject of hoItem to voItem
		Set ComCaption of hoItem to "Exit"
	Send Destroy to hoItem
	Variant voItem1
	Get ComItem 2 to voItem1
	Handle hoItem1
	Get Create (RefClass(cComItem)) to hoItem1
	Set pvComObject of hoItem1 to voItem1
		Set ComCaption of hoItem1 to "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"
	Send Destroy to hoItem1
End_Procedure

XBase++

PROCEDURE OnSelect(oToolBarCRD,ID,SelectedID)
	DevOut( "Select" )
	DevOut( Transform(SelectedID,"") )
RETURN

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

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

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

	oToolBarCRD := XbpActiveXControl():new( oForm:drawingArea )
	oToolBarCRD:CLSID  := "Exontrol.ToolBar.CRD.1" /*{DD586AE6-F2A0-4308-8F34-8016B16F000E}*/
	oToolBarCRD:create(,, {10,60},{610,370} )

		oToolBarCRD:Select := {|ID,SelectedID| OnSelect(oToolBarCRD,ID,SelectedID)} /*Notifies once the user clicks the item.*/

		oToolBarCRD:ItemsDelimiter := ";"
		oToolBarCRD:Format := "1,-1,2"
		oToolBarCRD:Item(1):Caption := "Exit"
		oToolBarCRD:Item(2):Caption := "Item <b>A;Item <b>A#1;Item <b>B#2;Item <b>C#3"

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