13:
Can I display items one below to other

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.Format = "(1/2):64,(3/4):64"
oToolBarCRD.Item(1).Caption = "Item <off 4><b>A"
oToolBarCRD.Item(2).Caption = "Item <off 4><b>B"
oToolBarCRD.Item(3).Caption = "Item <off 4><b>C"
oToolBarCRD.Item(4).Caption = "Item <off 4><b>D"

12:
How can I add a separator item

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.Format = "1,2,-1,3,4"

11:
Is it possible to disable an item

OleObject oToolBarCRD,var_Item

oToolBarCRD = ole_1.Object
oToolBarCRD.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oToolBarCRD.BackColor = RGB(255,255,255)
oToolBarCRD.Format = "1,2,3"
oToolBarCRD.Item(1).Caption = "<img>1</img>"
oToolBarCRD.Item(2).Caption = "<img>2</img>"
var_Item = oToolBarCRD.Item(3)
	var_Item.Caption = "<img>3</img>Disabled"
	var_Item.Enabled = false

10:
Is it possible to change the item's caption/image when user hovers the cursor

/*begin event MouseIn(any  ID) - Occurs when the mouse enters the part.*/
/*
	oToolBarCRD = ole_1.Object
	oToolBarCRD.Item(ID).Caption = "hover"
*/
/*end event MouseIn*/

/*begin event MouseOut(any  ID) - Occurs when the mouse exists the part.*/
/*
	oToolBarCRD = ole_1.Object
	oToolBarCRD.Item(ID).Caption = String(ID)
*/
/*end event MouseOut*/

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.Format = "1,2,3,4"

9:
Does your control support tooltip for items

OleObject oToolBarCRD,var_Item

oToolBarCRD = ole_1.Object
oToolBarCRD.Format = "(1/2),3"
var_Item = oToolBarCRD.Item(1)
	var_Item.Caption = "Item <b>1"
	var_Item.ToolTip = "This is a bit of text that's shown when cursor hovers the item"
oToolBarCRD.Item(2).Caption = "Item <b>2"
oToolBarCRD.Item(3).Caption = "Item <b>3"

8:
Is it possible to add an anchor element, similar to a link into a webpage

/*begin event AnchorClick(string  AnchorID,string  Options) - Occurs when an anchor element is clicked.*/
/*
	oToolBarCRD = ole_1.Object
	MessageBox("Information",string( String(AnchorID) ))
*/
/*end event AnchorClick*/

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.BackColor = RGB(255,255,255)
oToolBarCRD.Format = "" + CHAR(34) + "<a a1>link</a>" + CHAR(34) + ":32,1,2,3"

7:
How can I change the background of the hovering item

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oToolBarCRD.Background(155,16777216 /*0x1000000*/)
oToolBarCRD.Format = "1,2,3,4"

6:
Can I display an item aligned to the right

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.Format = "1,2,|,3:64"
oToolBarCRD.Item(3).Caption = "< <b>right</b> >"

5:
Can I display pictures in the toolbar

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.HTMLPicture("pic1","c:\exontrol\images\card.png")
oToolBarCRD.HTMLPicture("pic2","c:\exontrol\images\diary.png")
oToolBarCRD.Format = "1,2,3"
oToolBarCRD.Item(1).Caption = "<img>pic1:48</img>"
oToolBarCRD.Item(2).Caption = "<img>pic2:30</img>"
oToolBarCRD.Item(3).Caption = "<img>pic1:24</img> Picture"

4:
Can I display icons in the toolbar

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oToolBarCRD.BackColor = RGB(255,255,255)
oToolBarCRD.Format = "1,2,3"
oToolBarCRD.Item(1).Caption = "<img>1</img>"
oToolBarCRD.Item(2).Caption = "<img>2</img>"
oToolBarCRD.Item(3).Caption = "<img>3</img>Icon"

3:
How can I get ride of the top-bottom lines

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.Appearance = 4
oToolBarCRD.BackColor = RGB(255,255,255)
oToolBarCRD.Format = "1,-1,2"
oToolBarCRD.Item(1).Caption = "Exit"
oToolBarCRD.Item(2).Caption = "Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3"

2:
How can I display a drop-down panel

/*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.Format = "1,-1,2"
oToolBarCRD.Item(1).Caption = "Exit"
oToolBarCRD.Item(2).Caption = "Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3"

1:
How can I add / display items with the toolbar

/*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( oToolBarCRD.Item(ID).Caption ))
*/
/*end event Select*/

OleObject oToolBarCRD

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