13:
Can I display items one below to other

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

12:
How can I add a separator item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ToolBarCRD1
		.Format = "1,2,-1,3,4"
	End With
End Function
</SCRIPT>
</BODY>

11:
Is it possible to disable an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBarCRD1_MouseIn(ID)
	With ToolBarCRD1
		.Item(ID).Caption = "hover"
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function ToolBarCRD1_MouseOut(ID)
	With ToolBarCRD1
		.Item(ID).Caption = ID
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ToolBarCRD1
		.Format = "1,2,3,4"
	End With
End Function
</SCRIPT>
</BODY>

9:
Does your control support tooltip for items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBarCRD1_AnchorClick(AnchorID,Options)
	With ToolBarCRD1
		alert( AnchorID )
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ToolBarCRD1
		.BackColor = RGB(255,255,255)
		.Format = """<a a1>link</a>"":32,1,2,3"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ToolBarCRD1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(155) = &H1000000
		.Format = "1,2,3,4"
	End With
End Function
</SCRIPT>
</BODY>

6:
Can I display an item aligned to the right

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ToolBarCRD1
		.Format = "1,2,|,3:64"
		.Item(3).Caption = "< <b>right</b> >"
	End With
End Function
</SCRIPT>
</BODY>

5:
Can I display pictures in the toolbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

4:
Can I display icons in the toolbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With 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"
	End With
End Function
</SCRIPT>
</BODY>

2:
How can I display a drop-down panel

<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
		.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
End Function
</SCRIPT>
</BODY>

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

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

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>