13:
Can I display items one below to other

With 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"
End With
12:
How can I add a separator item

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

With ToolBarCRD1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.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 = False
	End With
End With
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.
Private Sub ToolBarCRD1_MouseIn(ByVal ID As Variant)
	With ToolBarCRD1
		.Item(ID).Caption = "hover"
	End With
End Sub

' MouseOut event - Occurs when the mouse exists the part.
Private Sub ToolBarCRD1_MouseOut(ByVal ID As Variant)
	With ToolBarCRD1
		.Item(ID).Caption = ID
	End With
End Sub

With ToolBarCRD1
	.Format = "1,2,3,4"
End With
9:
Does your control support tooltip for items

With 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"
	End With
	.Item(2).Caption = "Item <b>2"
	.Item(3).Caption = "Item <b>3"
End With
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.
Private Sub ToolBarCRD1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
	With ToolBarCRD1
		Debug.Print( AnchorID )
	End With
End Sub

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

With ToolBarCRD1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolBarButtonHotBackColor) = &H1000000
	.Format = "1,2,3,4"
End With
6:
Can I display an item aligned to the right

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

With ToolBarCRD1
	.HTMLPicture("pic1") = "c:\exontrol\images\card.png"
	.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"
End With
4:
Can I display icons in the toolbar

With ToolBarCRD1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.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"
End With
3:
How can I get ride of the top-bottom lines

With ToolBarCRD1
	.Appearance = Etched
	.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"
End With
2:
How can I display a drop-down panel

' 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
	.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"
End With
1:
How can I add / display items with the toolbar

' 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( .Item(ID).Caption )
	End With
End Sub

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