13:
Can I display items one below to other

with thisform.ToolBarCRD1
	.Format = "(1/2):64,(3/4):64"
	.Item(1).Caption = "Item <off 4><b>A"
	.Item(2).Caption = "Item <off 4><b>B"
	.Item(3).Caption = "Item <off 4><b>C"
	.Item(4).Caption = "Item <off 4><b>D"
endwith
12:
How can I add a separator item

with thisform.ToolBarCRD1
	.Format = "1,2,-1,3,4"
endwith
11:
Is it possible to disable an item

with thisform.ToolBarCRD1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.BackColor = RGB(255,255,255)
	.Format = "1,2,3"
	.Item(1).Caption = "<img>1</img>"
	.Item(2).Caption = "<img>2</img>"
	with .Item(3)
		.Caption = "<img>3</img>Disabled"
		.Enabled = .F.
	endwith
endwith
10:
Is it possible to change the item's caption/image when user hovers the cursor

*** MouseIn event - Occurs when the mouse enters the part. ***
LPARAMETERS ID
	with thisform.ToolBarCRD1
		.Item(ID).Caption = "hover"
	endwith

*** MouseOut event - Occurs when the mouse exists the part. ***
LPARAMETERS ID
	with thisform.ToolBarCRD1
		.Item(ID).Caption = ID
	endwith

with thisform.ToolBarCRD1
	.Format = "1,2,3,4"
endwith
9:
Does your control support tooltip for items

with thisform.ToolBarCRD1
	.Format = "(1/2),3"
	with .Item(1)
		.Caption = "Item <b>1"
		.ToolTip = "This is a bit of text that's shown when cursor hovers the item"
	endwith
	.Item(2).Caption = "Item <b>2"
	.Item(3).Caption = "Item <b>3"
endwith
8:
Is it possible to add an anchor element, similar to a link into a webpage

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.ToolBarCRD1
		DEBUGOUT( AnchorID )
	endwith

with thisform.ToolBarCRD1
	.BackColor = RGB(255,255,255)
	.Format = ""+chr(34)+"<a a1>link</a>"+chr(34)+":32,1,2,3"
endwith
7:
How can I change the background of the hovering item

with thisform.ToolBarCRD1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(155) = 0x1000000
	.Format = "1,2,3,4"
endwith
6:
Can I display an item aligned to the right

with thisform.ToolBarCRD1
	.Format = "1,2,|,3:64"
	.Item(3).Caption = "< <b>right</b> >"
endwith
5:
Can I display pictures in the toolbar

with thisform.ToolBarCRD1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\card.png"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\diary.png"
	.Format = "1,2,3"
	.Item(1).Caption = "<img>pic1:48</img>"
	.Item(2).Caption = "<img>pic2:30</img>"
	.Item(3).Caption = "<img>pic1:24</img> Picture"
endwith
4:
Can I display icons in the toolbar

with thisform.ToolBarCRD1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.BackColor = RGB(255,255,255)
	.Format = "1,2,3"
	.Item(1).Caption = "<img>1</img>"
	.Item(2).Caption = "<img>2</img>"
	.Item(3).Caption = "<img>3</img>Icon"
endwith
3:
How can I get ride of the top-bottom lines

with thisform.ToolBarCRD1
	.Appearance = 4
	.BackColor = RGB(255,255,255)
	.Format = "1,-1,2"
	.Item(1).Caption = "Exit"
	.Item(2).Caption = "Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3"
endwith
2:
How can I display a drop-down panel

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

with thisform.ToolBarCRD1
	.Format = "1,-1,2"
	.Item(1).Caption = "Exit"
	.Item(2).Caption = "Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3"
endwith
1:
How can I add / display items with the toolbar

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

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