240:
Is there any function to retrieve all available shortcut keys

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(255,255,255))
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "3"
						End With
					End With
				End With
			End With
		End With
	End With
	.Refresh()
	Debug.Print( .ShortcutKeysInfo )
End With
239:
How can I display shortcut keys with a different size

With Extoolbar1
	.ShortcutKeyFormat = "`<font ;14>` + caption"
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+SHIFT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
238:
How can I display shortcut keys with a different font

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(255,255,255))
	.ShortcutKeyFormat = "`<font Stencil>` + caption"
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+SHIFT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
237:
How can I change the visual appearance of the shortcut keys (sample 3, theme)

With Extoolbar1
	.VisualAppearance.Add(1,"XP: Button 1 1")
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyAppearance,&H1000000)
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(0,0,0))
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
236:
It is possible somehow to show all available shortcut keys (sample 2)

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
		.ShortcutKeyFormat = "`<c><font ;6><fgcolor 808080>` + sca + `</fgcolor></font><br><c>Key:` + keys"
		.ShortcutKeyPressedModifers = exontrol.EXTOOLBARLib.ModifierKeyEnum.exModifierAny
		.ShortcutKeyFormat = ""
		.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	End With
End Sub

With Extoolbar1
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+CTRL+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+SHIFT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
235:
It is possible somehow to show all available shortcut keys (sample 1)

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		.ShortcutKeyPressedModifers = exontrol.EXTOOLBARLib.ModifierKeyEnum.exModifierAny
	End With
End Sub

With Extoolbar1
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
234:
How can I show the shortcut keys semi-transparent

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyAppearance,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(255,255,255))
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	.ShortcutKeyTransparent = 50
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
233:
Is it possible somehow to display ID of each item

With Extoolbar1
	.Debug = True
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
232:
How can I change the visual appearance of the shortcut keys (sample 2, EBN)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyAppearance,&H1000000)
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(0,0,0))
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
231:
How can I change the visual appearance of the shortcut keys (sample 1)

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyAppearance,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(255,255,255))
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
230:
Can I show the shortcut key right after the item so it won't overlap it (sample 2)

With Extoolbar1
	.ShortcutKeyExtPaddingH = "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
	.ShortcutKeyExtPaddingV = "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
229:
Can I show the shortcut key right after the item so it won't overlap it (sample 1)

With Extoolbar1
	.ShortcutKeyExtPaddingH = "width/2, height/2 ,width/2,height/2"
	.ShortcutKeyExtPaddingV = "width/2, height/2 ,width/2,height/2"
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
228:
Can I specify padding for shortcut keys (sample 2)

With Extoolbar1
	.ShortcutKeyPadding = "8,8,8,8"
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
227:
Can I specify padding for shortcut keys (sample 1)

With Extoolbar1
	.ShortcutKeyPadding = "0,0,0,0"
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
226:
Is it possible to specify where the shortcut keys should be shown

With Extoolbar1
	.ShortcutKeyAlignH = exontrol.EXTOOLBARLib.ShortcutKeyAlignEnum.exShortcutKeyUpperLeft
	.ShortcutKeyAlignV = exontrol.EXTOOLBARLib.ShortcutKeyAlignEnum.exShortcutKeyLowerRight
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
225:
Can I use different shortcut modifier keys for items

With Extoolbar1
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT + CTRL + 1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "CTRL + SHIFT + ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "3 + 33"
						End With
					End With
				End With
			End With
		End With
		.Add("")
		.Add("Press <b>CTRL or ALT")
	End With
End With
224:
How can I disable a shortcut key

With Extoolbar1
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Enabled = False
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "3 + 33"
						End With
					End With
				End With
			End With
		End With
	End With
End With
223:
I have noticed that the shortcut keys are still visible while I clicking the control. Is it possible to hide them as soon as user clicks anywhere
With Extoolbar1
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "3 + 33"
						End With
					End With
				End With
			End With
		End With
	End With
End With
222:
I have a shortcut that's not currently visible, the question is if I can invoke somehow
' CheckItem event - Occurs when the user checks the item.
Private Sub Extoolbar1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.CheckItem
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exAllowShortcutKeysIfNotShown Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "ALT + 4"
						End With
					End With
				End With
			End With
		End With
		.Add("press ALT + 4")
	End With
End With
221:
Can I specify a longer delay to display shortcut once the user presses any modifer keys
With Extoolbar1
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exLongerDelayShortcutKeys Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "3+33"
						End With
					End With
				End With
			End With
		End With
	End With
End With
220:
How can I display extended shortcut keys

With Extoolbar1
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "333"
						End With
					End With
				End With
			End With
		End With
	End With
End With
219:
Is it possible to disable the shortcut keys, whithout changing the Shortcut property

With Extoolbar1
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisableShortcutKeys Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
218:
How can display the shortcut keys only when modifier keys are pressed

With Extoolbar1
	.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysPressOnly
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "3+33"
						End With
					End With
				End With
			End With
		End With
	End With
End With
217:
How can I assign a shortcut key to an item

With Extoolbar1
	With .Items
		.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		With .Add("",2,10)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Item 1",0,20)
					.Check = True
					.Shortcut = "ALT+1"
				End With
				With .Add("Item 2",0,30)
					.Check = True
					.Checked = True
					.Shortcut = "ALT+2"
				End With
				With .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					With .Items
						With .Add("Sub-Item 3.1",0,50)
							.Radio = True
							.Checked = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "1"
						End With
						With .Add("Sub-Item 3.2",0,60)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "2"
						End With
						With .Add("Sub-Item 3.2",0,70)
							.Radio = True
							.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
							.Shortcut = "33+3"
						End With
					End With
				End With
			End With
		End With
	End With
End With
216:
Is it possible to insert items at a specified position during runtime, without rebuilding the entire item which hosts the items

With Extoolbar1
	With .Items
		.Add("Item A",0,1000)
		.Add("Item B",0,1001)
		.Add("Item C",0,1002).Position = 0
	End With
End With
215:
Is it possible to have a popup on a radio button when it is checked

With Extoolbar1
	.ToString = "[group=0x03][id=0](Link[id=10][typ=2][grp=100][chk=1],Move To[id=20][typ=2][grp=100][spchk][arrow=0]())"
	With .Items.Item(20)
		.Items.Add("Item A",0,1000)
		.Items.Add("Item B",0,1001)
		.Items.Add("Item C",0,1002)
	End With
End With
214:
Is it possible to minimize the control, once the user clicks a button

' CheckItem event - Occurs when the user checks the item.
Private Sub Extoolbar1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.CheckItem
	With Extoolbar1
		Extoolbar1.Items.Item(-99).Visible = Extoolbar1.Items.Item(-999).Checked
		Debug.Print( "RequiredHeight" )
		Debug.Print( .RequiredHeight )
	End With
End Sub

' UncheckItem event - Occurs when the user unchecks the item.
Private Sub Extoolbar1_UncheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.UncheckItem
	With Extoolbar1
		Extoolbar1.Items.Item(-99).Visible = Extoolbar1.Items.Item(-999).Checked
		Debug.Print( "RequiredHeight" )
		Debug.Print( .RequiredHeight )
	End With
End Sub

Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .Add("Normal",0,-999)
			.Check = True
			.Checked = Extoolbar1.Item(-99).Visible
			.X = "width - iwidth"
		End With
		With .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			With var_Item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					var_Item = .Items.Add("New Group")
					With var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
								End With
							End With
						End With
					End With
					var_Item1 = .Items.Add("New Group")
					With var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("C1")
										.Check = True
										.Checked = True
									End With
									With .Add("C2")
										.Check = True
										.Checked = False
									End With
									With .Add("C3")
										.Check = True
										.Checked = True
									End With
								End With
							End With
						End With
					End With
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					With var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							With .Add("",0)
								.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
										With .Items
											.Add("Item 7").Check = True
											.Add("Item 8")
											With .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											End With
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_Item4 = .Add("New Page")
			With var_Item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					With .Items
						With .Add("S1")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 75
						End With
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.PopupFlatAppearance = False
	With .VisualAppearance
		.Add(1,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
		.Add(2,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn")
		.Add(3,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn")
		.Add(4,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn")
		.Add(5,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn")
		.Add(6,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn")
		.Add(7,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn")
		.Add(8,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn")
		.Add(9,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn")
		.Add(10,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn")
		.Add(11,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn")
		.Add(12,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
		.Add(13,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn")
		.Add(14,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn")
		.Add(15,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn")
		.Add(16,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn")
		.Add(19,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	End With
	.ForeColor = Color.FromArgb(21,66,139)
	.SelBackColor32 = &He000000
	.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	.Appearance = &H1000000
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.set_Background32(&H2,&Hd000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
	.Refresh()
End With
213:
Is there any debug option, so I can see the IDs of the items I have in the control

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	.Debug = True
	With .Items
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = True
				.Add("Radio 2").Radio = True
				With .Add("Radio 3")
					.Radio = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
		.Add("").ToString = "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=" & _
"2][chk=1])"
	End With
	.Refresh()
End With
212:
Microsoft Office - Ribbon Like - Minimized

Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		.Item(-99).Visible = False
		With .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			With var_Item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					var_Item = .Items.Add("New Group")
					With var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
								End With
							End With
						End With
					End With
					var_Item1 = .Items.Add("New Group")
					With var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("C1")
										.Check = True
										.Checked = True
									End With
									With .Add("C2")
										.Check = True
										.Checked = False
									End With
									With .Add("C3")
										.Check = True
										.Checked = True
									End With
								End With
							End With
						End With
					End With
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					With var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							With .Add("",0)
								.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
										With .Items
											.Add("Item 7").Check = True
											.Add("Item 8")
											With .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											End With
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_Item4 = .Add("New Page")
			With var_Item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					With .Items
						With .Add("S1")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 75
						End With
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.PopupFlatAppearance = False
	With .VisualAppearance
		.Add(1,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
		.Add(2,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn")
		.Add(3,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn")
		.Add(4,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn")
		.Add(5,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn")
		.Add(6,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn")
		.Add(7,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn")
		.Add(8,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn")
		.Add(9,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn")
		.Add(10,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn")
		.Add(11,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn")
		.Add(12,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
		.Add(13,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn")
		.Add(14,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn")
		.Add(15,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn")
		.Add(16,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn")
		.Add(19,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	End With
	.ForeColor = Color.FromArgb(21,66,139)
	.SelBackColor32 = &He000000
	.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	.Appearance = &H1000000
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.set_Background32(&H2,&Hd000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
	.Refresh()
End With
211:
Microsoft Paint - Ribbon Like - Minimized

Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		.Item(-99).Visible = False
		With .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			With var_Item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					var_Item = .Items.Add("New Group")
					With var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
								End With
							End With
						End With
					End With
					var_Item1 = .Items.Add("New Group")
					With var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("C1")
										.Check = True
										.Checked = True
									End With
									With .Add("C2")
										.Check = True
										.Checked = False
									End With
									With .Add("C3")
										.Check = True
										.Checked = True
									End With
								End With
							End With
						End With
					End With
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					With var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							With .Add("",0)
								.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
										With .Items
											.Add("Item 7").Check = True
											.Add("Item 8")
											With .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											End With
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_Item4 = .Add("New Page")
			With var_Item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					With .Items
						With .Add("S1")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 75
						End With
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.PopupFlatAppearance = False
	With .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn")
		.Add(3,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn")
		.Add(4,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn")
		.Add(5,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn")
		.Add(6,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn")
		.Add(7,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn")
		.Add(8,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn")
		.Add(9,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn")
		.Add(10,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn")
		.Add(11,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn")
		.Add(13,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn")
		.Add(15,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn")
		.Add(16,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn")
		.Add(19,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	End With
	.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	.Appearance = &H1000000
	.ForeColor = Color.FromArgb(21,66,139)
	.SelBackColor32 = &He000000
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.set_Background32(&H2,&Hd000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
	.Refresh()
End With
210:
Microsoft Windows 8.1 - Ribbon Like - Minimized

Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		.Item(-99).Visible = False
		With .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			With var_Item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					var_Item = .Items.Add("New Group")
					With var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
								End With
							End With
						End With
					End With
					var_Item1 = .Items.Add("New Group")
					With var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("C1")
										.Check = True
										.Checked = True
									End With
									With .Add("C2")
										.Check = True
										.Checked = False
									End With
									With .Add("C3")
										.Check = True
										.Checked = True
									End With
								End With
							End With
						End With
					End With
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					With var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							With .Add("",0)
								.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
										With .Items
											.Add("Item 7").Check = True
											.Add("Item 8")
											With .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											End With
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_Item4 = .Add("New Page")
			With var_Item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					With .Items
						With .Add("S1")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 75
						End With
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.PopupFlatAppearance = False
	With .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn")
		.Add(17,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn")
		.Add(18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn")
		.Add(32,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn")
		.Add(33,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn")
		.Add(34,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn")
		.Add(35,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn")
	End With
	.Appearance = &H1000000
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.SelBackColor32 = &He000000
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&H23000000)
	.set_Background32(&H2,&H22000000)
	.set_Background32(&H3,&H23000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState0,&H20000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState1,&H21000000)
	.Refresh()
End With
209:
How can I display a tab into the toolbar (method 2, minimized)

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(240,240,240))
	With .Items
		.ToString = "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-" & _
"100]))"
		.Item(-99).Visible = False
		With .Item(-10).Items
			.Add("",0,0).Padding = "8,0,0,0"
			With .Add("New Page")
				.ToString = "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>1</b></font></off>"
				With .Items.Item(0).Items
					With .Add("add here fields for page 1")
						.ID = -1000
						.Enabled = False
						.BackColor = Color.FromArgb(255,0,0)
					End With
				End With
			End With
			With .Add("New Page")
				.ToString = "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>2</b></font></off>"
				With .Items.Item(0).Items
					With .Add("add here fields for page 2")
						.ID = -1001
						.Enabled = False
						.BackColor = Color.FromArgb(0,255,0)
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.Refresh()
End With
208:
How can I display a tab into the toolbar (method 1, minimized)

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(240,240,240))
	.ToString = "[group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03]([id=50][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=60][ty" & _
"p=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][grou" & _
"p=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=80],add here fields for page 1[id=-1000][dis])),Page<off -5><font " & _
";5><b>2</b></font></off>[id=100][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(2" & _
"40,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=120],add here fields for page 2[id=-10" & _
"01][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
	With .Items.Item(-1000)
		.BackColor = Color.FromArgb(255,0,0)
	End With
	With .Items.Item(-1001)
		.BackColor = Color.FromArgb(0,255,0)
	End With
	.Item(-99).Visible = False
End With
207:
Is there a trick to arrange two or three items(buttons) on the Right side, with different widths

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	.Items.ToString = "C1[chk],C2[chk],C3[chk]"
	With .Items.Add("C4")
		.ID = 40
		.Check = True
		.Checked = True
		.ItemHeight = 24
		.X = "width - (iwidth + iwidthof(50) + iwidthof(60))"
	End With
	With .Items.Add("C5-Baka")
		.ID = 50
		.Check = True
		.Checked = True
		.ItemHeight = 24
		.X = "width - (iwidth + iwidthof(60))"
	End With
	With .Items
		With .Add("Expand",2)
			.ID = 60
			.ItemHeight = 24
			.X = "width - (iwidth)"
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
			End With
		End With
	End With
	.Refresh()
End With
206:
Is there a trick to arrange two or three items(buttons) on the Right side

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	.Items.ToString = "C1[chk],C2[chk],C3[chk]"
	With .Items.Add("C4")
		.Check = True
		.Checked = True
		.X = "width - 3*42*dpi"
	End With
	With .Items.Add("C5")
		.Check = True
		.Checked = True
		.X = "width - 2*42*dpi"
	End With
	With .Items.Add("C6")
		.Check = True
		.Checked = True
		.X = "width - 1*42*dpi"
	End With
End With
205:
How can I add a list of fonts

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	' Items(57707).Caption = Itm.Caption
End Sub

With Extoolbar1
	.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.SingleBorder
	.Items.Add("Font").ToString = "<font Arial>Arial</font>[id=57707][align=1][button=0x0211][captionwidth=96][height=26][ttp=Font][pad=2,2,0,2][itemsbg=RGB(255,2" & _
"55,255)][visible=255](<font Arial>Arial</font>[id=53248][typ=1][close=0][chk=1],<font Arial Black>Arial Black</font>[id=53249][c" & _
"lose=0],<font Comic Sans MS>Comic Sans MS</font>[id=53250][close=0],<font Courier New>Courier New</font>[id=53251][close=0],<fon" & _
"t Georgia>Georgia</font>[id=53252][close=0],<font Impact>Impact</font>[id=53253][close=0],<font Lucida Console>Lucida Console</f" & _
"ont>[id=53254][close=0],<font Lucida Sans Unicode>Lucida Sans Unicode</font>[id=53255][close=0],<font Tahoma>Tahoma</font>[id=53" & _
"256][close=0],<font Times New Roman>Times New Roman</font>[id=53257][close=0],<font Trebuchet MS>Trebuchet MS</font>[id=53258][c" & _
"lose=0],<font Verdana>Verdana</font>[id=53259][close=0],<font MS Sans Serif>MS Sans Serif</font>[id=53260][close=0],<font MS Ser" & _
"if>MS Serif</font>[id=53261][close=0])"
End With
204:
How can I show a pattern over all items

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.BackgroundExt = "root[pattern=0x006]"
			End With
		End With
	End With
	.Refresh()
End With
203:
How can I show a pattern over the item

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1").BackgroundExt = "root[pattern=0x006]"
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
	End With
	.Refresh()
End With
202:
How can I add a color table

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.SingleBorder
	.Items.Add("Color").ToString = "Color[id=57685][button=0x0211][ttp=Color][itemsbg=RGB(255,255,255)][visible=255](<fgcolor 808080>color[id=350][align=1][group=0" & _
"x0133][itemspad=2,2,2,2]([id=360][group=0x33]([id=49152][typ=2][close=0][chk=1][show=1][grp=49152][captionwidth=24][height=24][t" & _
"tp=RGB(0,0,0)][data=RGB(0,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,0)]],[id=49153][typ=2][close=0][show=1][grp=4915" & _
"2][captionwidth=24][height=24][ttp=RGB(68,68,68)][data=RGB(68,68,68)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(68,68,68)]],[i" & _
"d=49154][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,102,102)][data=RGB(102,102,102)][bgext=none[" & _
"(2D,2D,100%-4D,100%-4D),back=RGB(102,102,102)]],[id=49155][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RG" & _
"B(153,153,153)][data=RGB(153,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,153,153)]],[id=49156][typ=2][close=0][sho" & _
"w=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,204,204)][data=RGB(204,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back" & _
"=RGB(204,204,204)]],[id=49157][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(238,238,238)][data=RGB(238" & _
",238,238)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(238,238,238)]],[id=49158][typ=2][close=0][show=1][grp=49152][captionwidth" & _
"=24][height=24][ttp=RGB(243,243,243)][data=RGB(243,243,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(243,243,243)]],[id=4915" & _
"9][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,255)][data=RGB(255,255,255)][bgext=none[(2D,2D" & _
",100%-4D,100%-4D),back=RGB(255,255,255)]]),[id=450][group=0x33]([id=49160][typ=2][close=0][show=1][grp=49152][captionwidth=24][h" & _
"eight=24][ttp=RGB(255,0,0)][data=RGB(255,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,0)]],[id=49161][typ=2][close=0]" & _
"[show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,153,0)][data=RGB(255,153,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back" & _
"=RGB(255,153,0)]],[id=49162][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,0)][data=RGB(255,255" & _
",0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,0)]],[id=49163][typ=2][close=0][show=1][grp=49152][captionwidth=24][hei" & _
"ght=24][ttp=RGB(0,255,0)][data=RGB(0,255,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,0)]],[id=49164][typ=2][close=0][s" & _
"how=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,255,255)][data=RGB(0,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=R" & _
"GB(0,255,255)]],[id=49165][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,0,255)][data=RGB(0,0,255)][b" & _
"gext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,255)]],[id=49166][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][" & _
"ttp=RGB(153,0,255)][data=RGB(153,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,255)]],[id=49167][typ=2][close=0][sho" & _
"w=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,0,255)][data=RGB(255,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB" & _
"(255,0,255)]]),[id=540][group=0x33]([id=49168][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(244,204,20" & _
"4)][data=RGB(244,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(244,204,204)]],[id=49169][typ=2][close=0][show=1][grp=491" & _
"52][captionwidth=24][height=24][ttp=RGB(252,229,205)][data=RGB(252,229,205)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(252,229" & _
",205)]],[id=49170][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,242,204)][data=RGB(255,242,204)][b" & _
"gext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,242,204)]],[id=49171][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=" & _
"24][ttp=RGB(217,234,211)][data=RGB(217,234,211)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,234,211)]],[id=49172][typ=2][cl" & _
"ose=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(208,224,227)][data=RGB(208,224,227)][bgext=none[(2D,2D,100%-4D,100" & _
"%-4D),back=RGB(208,224,227)]],[id=49173][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(207,226,243)][da" & _
"ta=RGB(207,226,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(207,226,243)]],[id=49174][typ=2][close=0][show=1][grp=49152][ca" & _
"ptionwidth=24][height=24][ttp=RGB(217,210,233)][data=RGB(217,210,233)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,210,233)]" & _
"],[id=49175][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(234,209,220)][data=RGB(234,209,220)][bgext=n" & _
"one[(2D,2D,100%-4D,100%-4D),back=RGB(234,209,220)]]),[id=630][group=0x33]([id=49176][typ=2][close=0][show=1][grp=49152][captionw" & _
"idth=24][height=24][ttp=RGB(234,153,153)][data=RGB(234,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,153,153)]],[id=" & _
"49177][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(249,203,156)][data=RGB(249,203,156)][bgext=none[(2" & _
"D,2D,100%-4D,100%-4D),back=RGB(249,203,156)]],[id=49178][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(" & _
"255,229,153)][data=RGB(255,229,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,229,153)]],[id=49179][typ=2][close=0][show=" & _
"1][grp=49152][captionwidth=24][height=24][ttp=RGB(182,215,168)][data=RGB(182,215,168)][bgext=none[(2D,2D,100%-4D,100%-4D),back=R" & _
"GB(182,215,168)]],[id=49180][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(162,196,201)][data=RGB(162,1" & _
"96,201)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(162,196,201)]],[id=49181][typ=2][close=0][show=1][grp=49152][captionwidth=2" & _
"4][height=24][ttp=RGB(159,197,232)][data=RGB(159,197,232)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(159,197,232)]],[id=49182]" & _
"[typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(180,167,214)][data=RGB(180,167,214)][bgext=none[(2D,2D,1" & _
"00%-4D,100%-4D),back=RGB(180,167,214)]],[id=49183][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(213,16" & _
"6,189)][data=RGB(213,166,189)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(213,166,189)]]),[id=720][group=0x33]([id=49184][typ=2" & _
"][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(224,102,102)][data=RGB(224,102,102)][bgext=none[(2D,2D,100%-4D" & _
",100%-4D),back=RGB(224,102,102)]],[id=49185][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(246,178,107)" & _
"][data=RGB(246,178,107)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(246,178,107)]],[id=49186][typ=2][close=0][show=1][grp=49152" & _
"][captionwidth=24][height=24][ttp=RGB(255,217,102)][data=RGB(255,217,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,217,1" & _
"02)]],[id=49187][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(147,196,125)][data=RGB(147,196,125)][bge" & _
"xt=none[(2D,2D,100%-4D,100%-4D),back=RGB(147,196,125)]],[id=49188][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24" & _
"][ttp=RGB(118,165,175)][data=RGB(118,165,175)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(118,165,175)]],[id=49189][typ=2][clos" & _
"e=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(111,168,220)][data=RGB(111,168,220)][bgext=none[(2D,2D,100%-4D,100%-" & _
"4D),back=RGB(111,168,220)]],[id=49190][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(142,124,195)][data" & _
"=RGB(142,124,195)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(142,124,195)]],[id=49191][typ=2][close=0][show=1][grp=49152][capt" & _
"ionwidth=24][height=24][ttp=RGB(194,123,160)][data=RGB(194,123,160)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(194,123,160)]])" & _
",[id=810][group=0x33]([id=49192][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,0,0)][data=RGB(204,0" & _
",0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,0,0)]],[id=49193][typ=2][close=0][show=1][grp=49152][captionwidth=24][heigh" & _
"t=24][ttp=RGB(230,145,56)][data=RGB(230,145,56)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(230,145,56)]],[id=49194][typ=2][clo" & _
"se=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(241,194,50)][data=RGB(241,194,50)][bgext=none[(2D,2D,100%-4D,100%-4" & _
"D),back=RGB(241,194,50)]],[id=49195][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(106,168,79)][data=RG" & _
"B(106,168,79)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(106,168,79)]],[id=49196][typ=2][close=0][show=1][grp=49152][captionwi" & _
"dth=24][height=24][ttp=RGB(69,129,142)][data=RGB(69,129,142)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(69,129,142)]],[id=4919" & _
"7][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(61,133,198)][data=RGB(61,133,198)][bgext=none[(2D,2D,1" & _
"00%-4D,100%-4D),back=RGB(61,133,198)]],[id=49198][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(103,78," & _
"167)][data=RGB(103,78,167)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(103,78,167)]],[id=49199][typ=2][close=0][show=1][grp=491" & _
"52][captionwidth=24][height=24][ttp=RGB(166,77,121)][data=RGB(166,77,121)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(166,77,12" & _
"1)]]),[id=900][group=0x33]([id=49200][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,0,0)][data=RGB(" & _
"153,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,0)]],[id=49201][typ=2][close=0][show=1][grp=49152][captionwidth=24][" & _
"height=24][ttp=RGB(180,95,6)][data=RGB(180,95,6)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,95,6)]],[id=49202][typ=2][clos" & _
"e=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(191,144,0)][data=RGB(191,144,0)][bgext=none[(2D,2D,100%-4D,100%-4D)," & _
"back=RGB(191,144,0)]],[id=49203][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(56,118,29)][data=RGB(56," & _
"118,29)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(56,118,29)]],[id=49204][typ=2][close=0][show=1][grp=49152][captionwidth=24]" & _
"[height=24][ttp=RGB(19,79,92)][data=RGB(19,79,92)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(19,79,92)]],[id=49205][typ=2][clo" & _
"se=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(11,83,148)][data=RGB(11,83,148)][bgext=none[(2D,2D,100%-4D,100%-4D)" & _
",back=RGB(11,83,148)]],[id=49206][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(53,28,117)][data=RGB(53" & _
",28,117)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(53,28,117)]],[id=49207][typ=2][close=0][show=1][grp=49152][captionwidth=24" & _
"][height=24][ttp=RGB(116,27,71)][data=RGB(116,27,71)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(116,27,71)]]),[id=990][group=0" & _
"x33]([id=49208][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,0,0)][data=RGB(102,0,0)][bgext=none[(" & _
"2D,2D,100%-4D,100%-4D),back=RGB(102,0,0)]],[id=49209][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(120" & _
",63,4)][data=RGB(120,63,4)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(120,63,4)]],[id=49210][typ=2][close=0][show=1][grp=49152" & _
"][captionwidth=24][height=24][ttp=RGB(127,96,0)][data=RGB(127,96,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(127,96,0)]],[id" & _
"=49211][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(39,78,19)][data=RGB(39,78,19)][bgext=none[(2D,2D," & _
"100%-4D,100%-4D),back=RGB(39,78,19)]],[id=49212][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(12,52,61" & _
")][data=RGB(12,52,61)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(12,52,61)]],[id=49213][typ=2][close=0][show=1][grp=49152][cap" & _
"tionwidth=24][height=24][ttp=RGB(7,55,99)][data=RGB(7,55,99)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(7,55,99)]],[id=49214][" & _
"typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(32,18,77)][data=RGB(32,18,77)][bgext=none[(2D,2D,100%-4D," & _
"100%-4D),back=RGB(32,18,77)]],[id=49215][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(76,17,48)][data=" & _
"RGB(76,17,48)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(76,17,48)]])))"
End With
201:
Is it possible to re-arrange the items once the toolbar is resized

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsWrap Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	.Items.ToString = "1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9"
End With
200:
I've noticed that the toolbar is cut when perform scrolling. Is it possible to change that shape

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxGAyg0HG0Og40HIyiwAGY1GMJiYAf8jAEhhUnAAyhEqg8hk0oAsIjYxHAwmYwHEbGY2GEhGkMlFBlAOhAJhEuoUHjcbGQ1EtMp0hGsbG" & _
"owEsvpNBlkpo9ZoNQp8rqMIqdkqwCr1ZrdbrFpsFvs1hg9VuVCjdBA0IoElhFog6zbDykUkhsPms3nMInc9hA0mNpoVrruQpdiutNq9kqlWtuQg+Sluewufp1gqWbEt+" & _
"0UK0F81YAuGkut01F3lF7vF6yYA1Ujf4ATjNd8KmeHh84n1MGI1zt9rN7vOhg+9knB4ejAE0m3HHHJlfL1VB5sH6G76m/63Ey2xAG0uMbkIbUDh3me1vjoV7vYIhBQNI" & _
"xjoOo5DKGKQj8hAhCbA6ThshAUN0g7or4DCFCQ14AHATIAHkbBZt83xxFCDcMw3DsQRFEINm8SQAHydpuxTEh4GkUzfHATYARnGsPn+d5mk5HkPv4g7/QBAQyhk1UFgB" & _
"BMloTBqDwe8iEQkg0KITCzXyDDhZxI30uRJFMXG7FYARTFLfR1MMRSDNUcSC30fE5IYASLAMBhmjZDQQJs9wZB0qQhCaFChC81g3M8RRuAE5IPMENRjDUdN8g8vw7MtJ" & _
"x5SseTHODCTpO0jp+hE/SZPqUSgAEpABCS9ytQkLyDTtPU2f8uUxGkg0dDtDxlXLCUPRMRxxRoAHW2wAICA==")
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exScrollViewBorder,&H1000000)
	With .Items
		.BackColor = Color.FromArgb(128,128,128)
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = True
				.Add("Radio 2").Radio = True
				With .Add("Radio 3")
					.Radio = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
		.Add("").ToString = "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=" & _
"2][chk=1])"
	End With
	.Refresh()
End With
199:
I've noticed that the toolbar is cut when perform scrolling. Is it possible to prevent that

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exScrollViewBorder,-1)
	With .Items
		.BackColor = Color.FromArgb(240,240,240)
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = True
				.Add("Radio 2").Radio = True
				With .Add("Radio 3")
					.Radio = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
		.Add("").ToString = "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=" & _
"2][chk=1])"
	End With
	.Refresh()
End With
198:
How can I scroll the items within the toolbar

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	With .Items
		.BackColor = Color.FromArgb(240,240,240)
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = True
				.Add("Radio 2").Radio = True
				With .Add("Radio 3")
					.Radio = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
		.Add("").ToString = "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=" & _
"2][chk=1])"
	End With
	.Refresh()
End With
197:
How can I show an item aligned to the bottom size of the toolbar

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	.Items.ToString = "C1[chk],C2[chk]"
	With .Items.Add("R")
		.Check = True
		.Checked = True
		.Y = "height - iheight"
	End With
End With
196:
How can I show an item aligned to the right of the toolbar

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	.Items.ToString = "C1[chk],C2[chk]"
	With .Items.Add("R")
		.Check = True
		.Checked = True
		.X = "width - iwidth"
	End With
End With
195:
How can I arrange horizontally the items on the toolbar

With Extoolbar1
	.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
	With .Items
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = True
				.Add("Radio 2").Radio = True
				With .Add("Radio 3")
					.Radio = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
		.Add("").ToString = "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=" & _
"2][chk=1])"
	End With
	.Refresh()
End With
194:
How can I display the drop down panel to a specified location only
With Extoolbar1
	.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	With .Items
		With .Add("Popup",2,100)
			.ShowPopupArrow = False
			.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
			.ShowPopupOffset = "0:screen,0:screen"
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
	End With
	.Refresh()
End With
193:
How can I displays the drop down bellow the control, rather than item itself

With Extoolbar1
	.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	With .Items
		With .Add("Popup <b>1",2,100)
			.ShowPopupArrow = False
			.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
			.ShowPopupOffset = "0,0:control"
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		With .Add("Popup <b>2",2,200)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 2")
				.Add("Item 3")
				.Add("Item 4")
			End With
		End With
	End With
	.Refresh()
End With
192:
How can I change the visual appearance of the progress bar

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(&H104,&H1000000)
	With .Items
		With .Add("Progress")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
		End With
	End With
	.Refresh()
End With
191:
How can I change the progress's color

With Extoolbar1
	.set_Background(&H104,Color.FromArgb(255,0,0))
	With .Items
		With .Add("Progress")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
		End With
	End With
	.Refresh()
End With
190:
I am using the Item.Visible property on False to hide the item, but the editor is still visible
' CheckItem event - Occurs when the user checks the item.
Private Sub Extoolbar1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.CheckItem
	With Extoolbar1
		With .Items.Item(1000)
			.Visible = True
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditReadOnly Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
		End With
		.Refresh()
	End With
End Sub

' UncheckItem event - Occurs when the user unchecks the item.
Private Sub Extoolbar1_UncheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.UncheckItem
	With Extoolbar1
		With .Items.Item(1000)
			.Visible = False
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemDisableEdit
		End With
		.Refresh()
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("",2)
			With .Items
				.Add("Visible")
				With .Add("")
					.Check = True
					.Checked = True
				End With
				With .Add("Item 2",,1000)
					.ItemHeight = 18
					.Caption = "Percent"
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditReadOnly Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
					.EditValue = 50
					.Visible = True
				End With
				.Add("Visible")
			End With
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
		End With
	End With
	.Refresh()
End With
189:
How can I change the color of a disabled item

With Extoolbar1
	With .Items
		With .Add("Disabled",2,0)
			.ForeColor = Color.FromArgb(255,0,0)
			.Items.Add("")
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.ShowPopupArrow = False
		End With
		.Add("Disabled").Enabled = False
	End With
	.Refresh()
End With
188:
Microsoft Windows 8.1 - Ribbon Like

Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			With var_Item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					var_Item = .Items.Add("New Group")
					With var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
								End With
							End With
						End With
					End With
					var_Item1 = .Items.Add("New Group")
					With var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("C1")
										.Check = True
										.Checked = True
									End With
									With .Add("C2")
										.Check = True
										.Checked = False
									End With
									With .Add("C3")
										.Check = True
										.Checked = True
									End With
								End With
							End With
						End With
					End With
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					With var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							With .Add("",0)
								.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
										With .Items
											.Add("Item 7").Check = True
											.Add("Item 8")
											With .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											End With
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_Item4 = .Add("New Page")
			With var_Item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					With .Items
						With .Add("S1")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 75
						End With
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.PopupFlatAppearance = False
	With .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn")
		.Add(17,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn")
		.Add(18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn")
		.Add(32,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn")
		.Add(33,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn")
		.Add(34,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn")
		.Add(35,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn")
	End With
	.Appearance = &H1000000
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.SelBackColor32 = &He000000
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&H23000000)
	.set_Background32(&H2,&H22000000)
	.set_Background32(&H3,&H23000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState0,&H20000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState1,&H21000000)
	.Refresh()
End With
187:
Microsoft Paint - Ribbon Like

Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			With var_Item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					var_Item = .Items.Add("New Group")
					With var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
								End With
							End With
						End With
					End With
					var_Item1 = .Items.Add("New Group")
					With var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("C1")
										.Check = True
										.Checked = True
									End With
									With .Add("C2")
										.Check = True
										.Checked = False
									End With
									With .Add("C3")
										.Check = True
										.Checked = True
									End With
								End With
							End With
						End With
					End With
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					With var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							With .Add("",0)
								.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
										With .Items
											.Add("Item 7").Check = True
											.Add("Item 8")
											With .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											End With
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_Item4 = .Add("New Page")
			With var_Item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					With .Items
						With .Add("S1")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 75
						End With
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.PopupFlatAppearance = False
	With .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn")
		.Add(3,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn")
		.Add(4,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn")
		.Add(5,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn")
		.Add(6,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn")
		.Add(7,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn")
		.Add(8,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn")
		.Add(9,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn")
		.Add(10,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn")
		.Add(11,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn")
		.Add(13,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn")
		.Add(15,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn")
		.Add(16,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn")
		.Add(19,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	End With
	.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	.Appearance = &H1000000
	.ForeColor = Color.FromArgb(21,66,139)
	.SelBackColor32 = &He000000
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.set_Background32(&H2,&Hd000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
	.Refresh()
End With
186:
Microsoft Office - Ribbon Like

Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			With var_Item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					var_Item = .Items.Add("New Group")
					With var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
										.Checked = False
									End With
								End With
							End With
						End With
					End With
					var_Item1 = .Items.Add("New Group")
					With var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("C1")
										.Check = True
										.Checked = True
									End With
									With .Add("C2")
										.Check = True
										.Checked = False
									End With
									With .Add("C3")
										.Check = True
										.Checked = True
									End With
								End With
							End With
						End With
					End With
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					With var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						With .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							With .Add("",0)
								.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
										With .Items
											.Add("Item 7").Check = True
											.Add("Item 8")
											With .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											End With
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_Item4 = .Add("New Page")
			With var_Item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
				With .Items.Item(0)
					With .Items
						With .Add("S1")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
							.EditValue = 75
						End With
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.PopupFlatAppearance = False
	With .VisualAppearance
		.Add(1,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
		.Add(2,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn")
		.Add(3,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn")
		.Add(4,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn")
		.Add(5,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn")
		.Add(6,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn")
		.Add(7,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn")
		.Add(8,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn")
		.Add(9,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn")
		.Add(10,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn")
		.Add(11,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn")
		.Add(12,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
		.Add(13,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn")
		.Add(14,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn")
		.Add(15,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn")
		.Add(16,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn")
		.Add(19,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	End With
	.ForeColor = Color.FromArgb(21,66,139)
	.SelBackColor32 = &He000000
	.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	.Appearance = &H1000000
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.set_Background32(&H2,&Hd000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
	.Refresh()
End With
185:
How I can assign buttons to a tab

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(240,240,240))
	With .Items
		.ToString = "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-" & _
"100]))"
		With .Item(-10).Items
			.Add("",0,0).Padding = "8,0,0,0"
			With .Add("New Page")
				.ToString = "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>1</b></font></off>"
				.ID = -1000
				With .Items.Item(0).Items
					.Add("Button 1").ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButton
					.Add("Button 2").ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButton
					.Add("Button 3").ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButton
				End With
			End With
			With .Add("New Page")
				.ToString = "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>2</b></font></off>"
				.ID = -1001
				With .Items.Item(0).Items
					.Add("Button 3").ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButton
					.Add("Button 4").ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButton
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.Refresh()
End With
184:
How can I hide an item

With Extoolbar1
	With .Items
		.Add("Item 1").Visible = False
		.Add("Item 2")
	End With
	.Refresh()
End With
183:
How do I quickly load items into the control

With Extoolbar1
	.ToString = "Check 1[chk],Check 2[chk=1]"
End With
182:
Are there any functions to get the size/width/height of the control so all items fit the control's client area

With Extoolbar1
	With .Items
		.Add("Item 1")
		.Add("Item 2")
	End With
	.Refresh()
	Debug.Print( .RequiredWidth )
	Debug.Print( .RequiredHeight )
End With
181:
How do I get the item giving its caption

With Extoolbar1
	With .Items
		.Add("Item 1").ID = 1000
		.Add("Item 2").ID = 1001
	End With
	.Item("Item 1").Bold = True
	.Refresh()
End With
180:
How do I get the item giving its identifier

With Extoolbar1
	With .Items
		.Add("Item 1").ID = 1000
		.Add("Item 2").ID = 1001
	End With
	.Item(1000).Bold = True
	.Refresh()
End With
179:
Can I change the cursor where it hovers the item

With Extoolbar1
	.Cursor = "exCross"
	With .Items
		.Add("Item 1")
		.Add("Item 2").Cursor = "exNoDrop"
	End With
	.Refresh()
End With
178:
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group

With Extoolbar1
	.AllowToggleRadio = True
	With .Items
		With .Add("Radio 1",,1000)
			.Radio = True
			.RadioGroup = 100
		End With
		With .Add("Radio 2",,1001)
			.Radio = True
			.RadioGroup = 100
		End With
		With .Add("Radio 2",,1003)
			.Radio = True
			.RadioGroup = 100
		End With
	End With
	.Refresh()
End With
177:
Is it possible to display the item's identifiers

With Extoolbar1
	.Debug = True
	With .Items
		.Add("Item 1").ID = 10001
		.Add("Item 2").ID = 10002
	End With
	.Refresh()
End With
176:
How do I disable showing the tooltip for all control (method 2)

With Extoolbar1
	.AllowToolTip = False
	With .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	End With
	.Refresh()
End With
175:
How can I lock the control, so no events occur, but no shown in gray as Enabled do

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		Debug.Print( "SelectItem should not be fired while locked" )
	End With
End Sub

With Extoolbar1
	.Locked = True
	With .Items
		.Add("Disabled").Enabled = False
		.Add("Item 2")
		.Add("Item 3")
	End With
	.Refresh()
End With
174:
How can I disable the control

With Extoolbar1
	.Enabled = False
	With .Items
		.Add("Disabled").Enabled = False
		.Add("Item 2")
		.Add("Item 3")
	End With
	.Refresh()
End With
173:
How can I specify a different border/visual appearance for drop down portion of the popup menu (ebn)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.PopupAppearance = &H1000000
	With .Items
		With .Add("Popup 1",2).Items
			.Add("Item 1").Check = True
			.Add("Item 2").Check = True
			.Add("Item 3").Check = True
		End With
		With .Add("Popup 2",2).Items
			.Add("Item 4").Check = True
			.Add("Item 5").Check = True
			.Add("Item 6").Check = True
		End With
	End With
	.Refresh()
End With
172:
How can I specify a different border for drop down portion of the popup menu

With Extoolbar1
	.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	With .Items
		With .Add("Popup 1",2).Items
			.Add("Item 1").Check = True
			.Add("Item 2").Check = True
			.Add("Item 3").Check = True
		End With
		With .Add("Popup 2",2).Items
			.Add("Item 4").Check = True
			.Add("Item 5").Check = True
			.Add("Item 6").Check = True
		End With
	End With
	.Refresh()
End With
171:
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.LocalAppearance = &H1000000
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Button",2)
					.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					End With
				End With
				With .Add("Button",2)
					.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add("Item 4")
						.Add("Item 5")
						.Add("Item 6")
					End With
				End With
			End With
		End With
	End With
	.Refresh()
End With
170:
How can I specify a different border for drop down portion of the select buttons/combobox

With Extoolbar1
	.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Button",2)
					.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					End With
				End With
				With .Add("Button",2)
					.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add("Item 4")
						.Add("Item 5")
						.Add("Item 6")
					End With
				End With
			End With
		End With
	End With
	.Refresh()
End With
169:
How can I change the visual appearance for the entire control

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = &H1000000
	.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
	With .Items
		.Padding = "4,4,4,4"
		With .Add("Radio 1")
			.Radio = True
			.Checked = True
		End With
		.Add("Radio 2").Radio = True
		.Add("Radio 3").Radio = True
	End With
	.Refresh()
End With
168:
How can I show a border arround the control
With Extoolbar1
	.Appearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.FlatBorder
	.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
	With .Items
		.Padding = "4,4,4,4"
		With .Add("Check 1")
			.Checked = True
			.Check = True
		End With
		With .Add("Check 2")
			.Check = True
		End With
	End With
	.Refresh()
End With
167:
Is it possible to change the item's background color when check/uncheck the item

With Extoolbar1
	.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
	With .Items
		.Padding = "4,4,4,4"
		With .Add("Check 1")
			.Checked = True
			.Check = True
		End With
		With .Add("Check 2")
			.Check = True
		End With
	End With
	.Refresh()
End With
166:
How can I change the colors for hot/hover items

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotForeColor,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,Color.FromArgb(128,128,128))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotForeColor,Color.FromArgb(255,255,255))
	.SelBackColor = Color.FromArgb(128,128,128)
	.SelForeColor = Color.FromArgb(255,255,255)
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(128,128,128))
	.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
	With .Items
		.Padding = "4,4,4,4"
		.Add("").ToString = "[group=3](Item 1,Item 2)"
		With .Add("Check 1")
			.Checked = True
			.Check = True
		End With
		With .Add("Check 2")
			.Check = True
		End With
	End With
	.Refresh()
End With
165:
How do I change the visual appearance of the groups (vertical)

With Extoolbar1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
		.Add(3,"c:\exontrol\images\hot.ebn")
	End With
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H1000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H1000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&H2000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&H3000000)
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSolid,Color.FromArgb(255,0,0))
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Vertical",2)
					.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
					.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
						.Add("Item 4")
						.Add("Item 5")
					End With
				End With
				.Add("").CaptionWidth = 12
				With .Add("Vertical",2)
					.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
					.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
						.Add("Item 4")
						.Add("Item 5")
					End With
				End With
			End With
		End With
	End With
	.Refresh()
End With
164:
How do I change the visual appearance of the groups (horizontal)

With Extoolbar1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
		.Add(3,"c:\exontrol\images\hot.ebn")
	End With
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H1000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHStart,&H1000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H2000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H3000000)
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSolid,Color.FromArgb(255,0,0))
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.Add("Item 4")
				.Add("Item 5")
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)"
	End With
	.Refresh()
End With
163:
How can I change the visual appearance of the separator item

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSeparatorItem,&H1000000)
	With .Items
		.Add("Item").CaptionWidth = 128
		.Add("",1)
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "<font ;5>separator[sep]"
	End With
	.Refresh()
End With
162:
How can I change the visual appearance of the drop down of the control (normal.2)

With Extoolbar1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.PopupFlatImageWidth = 0
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1").Check = True
			.Add("Item 2").Check = True
			.Add("Item 3").Check = True
			.PopupAppearance = &H1000000
		End With
	End With
	.Refresh()
End With
161:
How can I change the visual appearance of the drop down of the control (normal.1)

With Extoolbar1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.PopupFlatAppearance = False
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1").Check = True
			.Add("Item 2").Check = True
			.Add("Item 3").Check = True
			.PopupAppearance = &H1000000
		End With
	End With
	.Refresh()
End With
160:
How can I change the visual appearance of the drop down of the control (flat)

With Extoolbar1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.PopupFlatBackColor32 = &H2000000
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuFlatLineColor,.PopupFlatBackColor)
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1").Check = True
			.Add("Item 2").Check = True
			.Add("Item 3").Check = True
			.PopupAppearance = &H1000000
		End With
	End With
	.Refresh()
End With
159:
How can I change the visual appearance of the flat portion of the drop down of the control

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.PopupFlatBackColor32 = &H1000000
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuFlatLineColor,.PopupFlatBackColor)
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1").Check = True
			.Add("Item 2").Check = True
			.Add("Item 3").Check = True
			.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		End With
	End With
	.Refresh()
End With
158:
How can I change the visual appearance of the radio-buttons to be displayed in the toolbar control (ebn)

With Extoolbar1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exRadioButtonState0,&H1000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exRadioButtonState1,&H2000000)
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Radio 1",,1000)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1001)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1003)
					.Radio = True
					.RadioGroup = 100
				End With
				.Item(1000).Checked = True
			End With
		End With
	End With
	.Refresh()
End With
157:
How can I change the visual appearance of the check-boxes to be displayed in the toolbar control (ebn)

With Extoolbar1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Check 1")
					.Check = True
					.Checked = True
				End With
				.Add("Check 2").Check = True
			End With
		End With
	End With
	.Refresh()
End With
156:
How can I change the visual appearance of the tooltips to be displayed in the toolbar control (ebn)

With Extoolbar1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.ToolTipDelay = 1
	.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipForeColor,Color.FromArgb(255,0,0))
	With .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	End With
	.Refresh()
End With
155:
Is it possible to change the visual appearance of the buttons to be displayed in the toolbar control (ebn)

With Extoolbar1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.set_Background32(&H2,&H1000000)
	.set_Background32(&H3,&H2000000)
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSeparatorSelectButton,Color.FromArgb(255,0,0))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSeparatorSelectButtonBottom,Color.FromArgb(0,0,255))
	With .Items
		.Padding = "4,4,4,4"
		.Add("Button").ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButton
		With .Add("")
			.Enabled = False
			.ItemHeight = 4
		End With
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		With .Add("")
			.Enabled = False
			.ItemHeight = 4
		End With
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButton Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
	End With
	.Refresh()
End With
154:
I've seen that the width of the tooltip is variable. Can I make it larger

With Extoolbar1
	.ToolTipWidth = 328
	With .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	End With
	.Refresh()
End With
153:
How do I disable showing the tooltip for all control (method 1)

With Extoolbar1
	.ToolTipDelay = 0
	With .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	End With
	.Refresh()
End With
152:
How do I let the tooltip being displayed longer

With Extoolbar1
	.ToolTipPopDelay = 10000
	With .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	End With
	.Refresh()
End With
151:
How do I show the tooltip quicker

With Extoolbar1
	.ToolTipDelay = 1
	With .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	End With
	.Refresh()
End With
150:
How can I get the version of the control I am running

With Extoolbar1
	Debug.Print( .Version )
End With
149:
How can I align the picture on the control's background

With Extoolbar1
	.Picture = Extoolbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
	.PictureDisplay = exontrol.EXTOOLBARLib.PictureDisplayEnum.UpperRight
	With .Items
		.Add("Item")
		.Add("Item")
	End With
	.Refresh()
End With
148:
Is it possible to place a picture on the control's background

With Extoolbar1
	.Picture = Extoolbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
	With .Items
		.Add("Item")
		.Add("Item")
	End With
	.Refresh()
End With
147:
How can I display the item using a different font/size

With Extoolbar1
	With .Items
		.Add("").Caption = "<font ;14>This is a bit of text"
		.Add("<font ;6>This is a bit of text")
		.Add("").Caption = "<font Times New Roman;22>This is a bit of text</font>. Default"
	End With
	.Refresh()
End With
146:
How can I use the Event event, available for /COM version

' Event event - Notifies the application once the control fires an event.
Private Sub Extoolbar1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Extoolbar1.Event
	With Extoolbar1
		Debug.Print( "Event" )
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

With Extoolbar1
	With .Items
		.Add("Check").Check = True
		With .Add("Slider")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
			.EditWidth = 128
			.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
			.EditValue = 25
		End With
	End With
	.Refresh()
End With
145:
Is it possible to get notified once the user edits the field, or change the slider value

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( "EditChange event on Itm object" )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Item")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
			.EditWidth = 128
			.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
			.EditValue = 25
		End With
	End With
	.Refresh()
End With
144:
How do I get notified once I uncheck an item

' UncheckItem event - Occurs when the user unchecks the item.
Private Sub Extoolbar1_UncheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.UncheckItem
	With Extoolbar1
		Debug.Print( "UncheckItem event on Itm object" )
	End With
End Sub

With Extoolbar1
	With .Items
		.Add("Item").Check = True
		.Add("Item").Check = True
	End With
	.Refresh()
End With
143:
How do I get notified once I check an item

' CheckItem event - Occurs when the user checks the item.
Private Sub Extoolbar1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.CheckItem
	With Extoolbar1
		Debug.Print( "CheckItem event on Itm object" )
	End With
End Sub

With Extoolbar1
	With .Items
		.Add("Item").Check = True
		.Add("Item").Check = True
	End With
	.Refresh()
End With
142:
How do I get notified once I click/select an item

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		Debug.Print( "SelectItem event on Itm object" )
	End With
End Sub

With Extoolbar1
	With .Items
		.Add("Item")
		.Add("Item")
	End With
	.Refresh()
End With
141:
Does your control support padding for items

With Extoolbar1
	.PopupFlatAppearance = False
	With .Items
		.Padding = "2,12,2,2"
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.BackColor = Color.FromArgb(255,255,255)
		.BackgroundExt = "root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])"
	End With
	.Refresh()
End With
140:
How can I display the drop down popup to a different position ( method 2 )

With Extoolbar1
	With .Items
		With .Add("Popup",2,100)
			.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
			.ShowPopupArrow = False
			.ShowPopupOffset = "-12,-48"
			With .Items
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.RaisedBorder
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
	End With
	.Refresh()
End With
139:
How can I display the drop down popup to a different position ( method 1 )

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Popup 1",2,100)
					.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
					.ShowPopupArrow = False
					With .Items
						.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.RaisedBorder
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					End With
				End With
				With .Add("Popup 2",2,200)
					.ShowPopupAt = 100
					.ShowPopupArrow = False
					With .Items
						.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.RaisedBorder
						.Add("Item 4")
						.Add("Item 5")
						.Add("Item 6")
					End With
				End With
			End With
		End With
	End With
	.Refresh()
End With
138:
Is it possible to show the popup bellow to the item, rather than on the right side

With Extoolbar1
	With .Items
		With .Add("Popup",2)
			.ShowPopupAlign = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
			.ShowPopupArrow = False
			With .Items
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.FlatBorder
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Popup[arrow=0][popupalign=1][popupapp=1](Item 1,Item 2,Item 3)"
	End With
	.Refresh()
End With
137:
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.HotBackColor32 = &H1000000
				.Padding = "4,8,4,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)"
	End With
	.Refresh()
End With
136:
How can I change the background color for items, when cursor hovers it (hot)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.HotBackColor = Color.FromArgb(255,0,0)
				.Padding = "0,8,0,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)"
	End With
	.Refresh()
End With
135:
How can I change the visual appearance for items (EBN)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.BackColor32 = &H1000000
				.Padding = "4,8,4,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"
	End With
	.Refresh()
End With
134:
How can I change the background color for items

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.BackColor = Color.FromArgb(255,0,0)
				.Padding = "0,8,0,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)"
	End With
	.Refresh()
End With
133:
Is it possible to hide the popup's arrow

With Extoolbar1
	With .Items
		With .Add("Popup",2)
			.ShowPopupArrow = False
			With .Items
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Popup[arrow=0][popupapp=6](Item 1,Item 2,Item 3)"
	End With
	.Refresh()
End With
132:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)

With Extoolbar1
	.PopupFlatImageWidth = 0
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
			.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		End With
	End With
	.Refresh()
End With
131:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)

With Extoolbar1
	.PopupFlatAppearance = False
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
			.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		End With
	End With
	.Refresh()
End With
130:
How can I arrange the drop down item from left to right, rather than top to bottom

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		Debug.Print( "Clicked" )
	End With
End Sub

With Extoolbar1
	.PopupFlatAppearance = False
	With .Items
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
				With .Add("",2)
					.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					End With
				End With
			End With
		End With
		.Add("").ToString = "Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))"
	End With
	.Refresh()
End With
129:
How can I add a drop down button / combobox (method 2)

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		Debug.Print( "Clicked" )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	End With
	.Refresh()
End With
128:
How can I add a drop down button / combobox (method 1)

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		Debug.Print( "Clicked" )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButton Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	End With
	.Refresh()
End With
127:
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		Debug.Print( "Clicked" )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButton Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
	End With
	.Refresh()
End With
126:
How can I add a button (push button)

' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
	With Extoolbar1
		Debug.Print( "Clicked" )
	End With
End Sub

With Extoolbar1
	With .Items
		.Add("Button").ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsButton
		.Add("").ToString = "Button[button=0x03]"
	End With
	.Refresh()
End With
125:
How can I display grouping items with no frame arround

With Extoolbar1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("A").Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
				.Add("BC").Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
				.Add("D").Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
	End With
	.Refresh()
End With
124:
How can I display grouping items of the same size/width/height

With Extoolbar1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("A").Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
				.Add("BC").Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
				.Add("D").Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
	End With
	.Refresh()
End With
123:
Is it possible to display a ticker frame arround grouping items

With Extoolbar1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	End With
	.Refresh()
End With
122:
How do I display items horizontally arranged

With Extoolbar1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	End With
	.Refresh()
End With
121:
Is it possible to expand an item when it is clicked (tree,group,vertical)

With Extoolbar1
	With .Items
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = True
				.Add("Radio 2").Radio = True
				With .Add("Radio 3")
					.Radio = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
		.Add("").ToString = "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=" & _
"2][chk=1])"
	End With
	.Refresh()
End With
120:
Is it possible to expand an item when it is clicked (tree,group,vertical)

With Extoolbar1
	With .Items
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = True
				.Add("Radio 2").Radio = True
				With .Add("Radio 3")
					.Radio = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
	End With
	.Refresh()
End With
119:
Is it possible to expand an item when it is clicked (group)

With Extoolbar1
	With .Items
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.ItemHeight = 24
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
			End With
		End With
	End With
	.Refresh()
End With
118:
Is it possible to extend an item when it is clicked

With Extoolbar1
	With .Items
		With .Add("Expand",2)
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
			End With
		End With
	End With
	.Refresh()
End With
117:
Does your control implement padding for item

With Extoolbar1
	With .Items
		.BackColor = Color.FromArgb(250,250,250)
		.Add("Item").Padding = "4,4,4,4"
		.Add("").ToString = "Item[pad=4,4,4,4]"
	End With
	.Refresh()
End With
116:
How can I add an empty item for a horizontal group

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				With .Add("",2)
					.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupCenter Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
					.ItemHeight = 12
					With .Items.Add("")
						.Enabled = False
						.ItemHeight = 8
						.CaptionWidth = 8
					End With
				End With
				.Add("Item 2")
			End With
		End With
	End With
	.Refresh()
End With
115:
How can I add an empty/separator item

With Extoolbar1
	With .Items
		.Add("Item")
		With .Add("")
			.Enabled = False
			.ItemHeight = 2
			.CaptionWidth = 8
			.BackColor = Color.FromArgb(240,240,240)
		End With
		.Add("Item")
	End With
	.Refresh()
End With
114:
How can I add an empty/frame item

With Extoolbar1
	With .Items
		.Add("Item 1")
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupCenter Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.ItemHeight = 12
			With .Items.Add("")
				.Enabled = False
				.ItemHeight = 8
				.CaptionWidth = 8
			End With
		End With
		.Add("Item 2")
	End With
	.Refresh()
End With
113:
How can I specify the height of the item

With Extoolbar1
	With .Items
		.BackColor = Color.FromArgb(250,250,250)
		.Add("Item").ItemHeight = 64
		.Add("").ToString = "Item[height=64]"
	End With
	.Refresh()
End With
112:
How can I specify the width of the item

With Extoolbar1
	With .Items
		.BackColor = Color.FromArgb(250,250,250)
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "Item[captionwidth=128]"
	End With
	.Refresh()
End With
111:
How do I align the item

With Extoolbar1
	With .Items
		.BackColor = Color.FromArgb(250,250,250)
		.Add("Item")
		With .Add("Item")
			.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
			.CaptionWidth = 128
		End With
		With .Add("Item")
			.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exRight
			.CaptionWidth = 128
		End With
		.Add("").ToString = "Item[align=1]"
	End With
	.Refresh()
End With
110:
How can I underline the item

With Extoolbar1
	With .Items
		.Add("Item").Underline = True
		.Add("<u>Item</u>")
		.Add("").ToString = "Item[und]"
	End With
	.Refresh()
End With
109:
How can I show the item as strikeout

With Extoolbar1
	With .Items
		.Add("Item").Strikeout = True
		.Add("<s>Item</s>")
		.Add("").ToString = "Item[stk]"
	End With
	.Refresh()
End With
108:
How can I show the item in italics

With Extoolbar1
	With .Items
		.Add("Item").Italic = True
		.Add("<i>Item</i>")
		.Add("").ToString = "Item[itl]"
	End With
	.Refresh()
End With
107:
How can I show the item in bold

With Extoolbar1
	With .Items
		.Add("Item").Bold = True
		.Add("<b>Item</b>")
		.Add("").ToString = "Item[bld]"
	End With
	.Refresh()
End With
106:
How can I show the item as disabled but still be able to select or use it

With Extoolbar1
	With .Items
		.Add("Item").ShowAsDisabled = True
		.Add("").ToString = "Item[showdis=1]"
	End With
	.Refresh()
End With
105:
How can I enable or disable an item

With Extoolbar1
	With .Items
		.Add("Item").Enabled = False
		.Add("").ToString = "Item[dis]"
	End With
	.Refresh()
End With
104:
How can I add a separator item

With Extoolbar1
	With .Items
		.Add("Item").CaptionWidth = 128
		.Add("<font ;6>separator",1)
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "<font ;6>separator[sep]"
	End With
	.Refresh()
End With
103:
How can I change the item's foreground color

With Extoolbar1
	With .Items
		.Add("Item").ForeColor = Color.FromArgb(255,0,0)
		.Add("<fgcolor FF0000>Item")
		.Add("").ToString = "Item[fg=RGB(255,0,0)]"
	End With
	.Refresh()
End With
102:
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Radio 1")
					.HotBackColor = Color.FromArgb(255,255,255)
					.SelBackColor = Color.FromArgb(255,0,0)
					.SelHotBackColor = Color.FromArgb(255,0,0)
					.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
					.Checked = True
				End With
				With .Add("Radio 2")
					.HotBackColor = Color.FromArgb(255,255,255)
					.SelBackColor = Color.FromArgb(255,0,0)
					.SelHotBackColor = Color.FromArgb(255,0,0)
					.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
				End With
				.Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
			End With
		End With
	End With
	.Refresh()
End With
101:
How can I change the item's background/backcolor, when the item is selected/checked (check-box)

With Extoolbar1
	With .Items
		With .Add("Check 1")
			.HotBackColor = Color.FromArgb(255,255,255)
			.SelBackColor = Color.FromArgb(255,0,0)
			.SelHotBackColor = Color.FromArgb(255,0,0)
			.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
			.Checked = True
			.Check = True
		End With
		.Add("").ToString = "Check 2[typ=1][chk=0][show=1][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
	End With
	.Refresh()
End With
100:
How can I prevent showing the border for selected/highlight/hot items

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(255,255,255))
	With .Items
		.Add("Item")
		.Add("Item")
	End With
	.Refresh()
End With
99:
How can I change the item's background/backcolor, when the cursor hovers it (hot)

With Extoolbar1
	With .Items
		.Add("Item").HotBackColor = Color.FromArgb(255,0,0)
		.Add("").ToString = "Item[bghot=RGB(255,0,0)]"
	End With
	.Refresh()
End With
98:
How can I change the item's background/backcolor

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		.Add("Item").BackColor = Color.FromArgb(255,0,0)
		.Add("Item").BackColor32 = &H1000000
		.Add("").ToString = "Item[bg=RGB(255,0,0)]"
	End With
	.Refresh()
End With
97:
How can I specify/assign the item's identifier

With Extoolbar1
	.Debug = True
	With .Items
		.Add("ID 1",0,1000)
		.Add("ID 2").ID = 1001
		.Add("").ToString = "ID 3[id=1002]"
	End With
	.Refresh()
End With
96:
The popup is displayed using a fade/light-up effect. Is it possible to prevent that

With Extoolbar1
	.ShowPopupEffect = exontrol.EXTOOLBARLib.ShowPopupEffectEnum.exShowPopupDirect
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
			.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		End With
	End With
	.Refresh()
End With
95:
How can I show semi-transparent popups

With Extoolbar1
	.PopupVisibility = 50
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
			.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		End With
	End With
	.Refresh()
End With
94:
How can I change the popup's border

With Extoolbar1
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
			.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
		End With
	End With
	.Refresh()
End With
93:
How can I show a horizontal separator/line between groups (method 3,EBN color)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor32 = &H1000000
					.ItemHeight = 8
					.CaptionWidth = 128
				End With
				With .Add("")
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh()
End With
92:
How can I show a horizontal separator/line between groups (method 2,solid color)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = Color.FromArgb(128,128,128)
					.ItemHeight = 8
					.CaptionWidth = 128
				End With
				With .Add("")
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh()
End With
91:
How can I show a horizontal separator/line between groups (method 1,pattern)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
				With .Add("",2)
					.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
					With .Items
						With .Add("")
							.Enabled = False
							.ItemHeight = 8
							.CaptionWidth = 128
						End With
						.BackgroundExt = "none[(0,50%-1,100%,2),pattern=0x006,patterncolor=RGB(128,128,128)]"
					End With
				End With
				With .Add("")
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh()
End With
90:
How can I show a vertical separator/line between groups (method 3,EBN color)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor32 = &H1000000
					.ItemHeight = 96
					.CaptionWidth = 8
				End With
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh()
End With
89:
How can I show a vertical separator/line between groups (method 2,solid color)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = Color.FromArgb(128,128,128)
					.ItemHeight = 96
					.CaptionWidth = 8
				End With
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh()
End With
88:
How can I show a vertical separator/line between groups (method 1,pattern)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
				With .Add("",2)
					.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
					With .Items
						With .Add("")
							.Enabled = False
							.ItemHeight = 96
							.CaptionWidth = 8
						End With
						.BackgroundExt = "none[(50%-1,0,2,100%),pattern=6,patterncolor=RGB(128,128,128)]"
					End With
				End With
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
					.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Refresh()
End With
87:
How can I show a pattern on the items

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.BackColor = Color.FromArgb(255,255,255)
		.Padding = "2,2,2,12"
		.BackgroundExt = "root[pattern=0x006,patterncolor=RGB(128,128,128),frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><of" & _
"f -2> clipboard </off></font></fgcolor>`,align=0x21])"
	End With
	.Refresh()
End With
86:
How can I show a thick frame arround the items

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.BackColor = Color.FromArgb(255,255,255)
		.Padding = "2,2,2,12"
		.BackgroundExt = "root[frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,ali" & _
"gn=0x21])"
	End With
	.Refresh()
End With
85:
How can I add some additional icons on the background

With Extoolbar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.BackColor = Color.FromArgb(255,255,255)
		.Padding = "0,0,0,16"
		.BackgroundExt = "root[text=`<img>2</img><font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor><img>2</img>`,align=0x21]"
	End With
	.Refresh()
End With
84:
How can I add some additional text on the background

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.BackColor = Color.FromArgb(255,255,255)
		.Padding = "0,0,0,8"
		.BackgroundExt = "root[text=`<font ;6><fgcolor 808080>clipboard`,align=0x21]"
	End With
	.Refresh()
End With
83:
How can I disable incremental searching

With Extoolbar1
	.PopupIncrementalSearch = exontrol.EXTOOLBARLib.IncrementalSearchEnum.exNoIncrementalSearch
	.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
	.Refresh()
End With
82:
How can I assign a tooltip to an item (method 2)

With Extoolbar1
	.ToString = "ToolTip[id=10][ttp=This is a bit of text that should be shown when cursor hovers the item]"
End With
81:
How can I assign a tooltip to an item (method 1)

With Extoolbar1
	.Items.Add("ToolTip").Tooltip = "This is a bit of text that should be shown when cursor hovers the item"
	.Refresh()
End With
80:
How can I assign a spin field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Spin")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin
			.EditWidth = 16
			.EditValue = 15
			.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
			.set_EditOption(exontrol.EXTOOLBARLib.EditOptionEnum.exEditMaxValue,1000)
		End With
		With .Add("Edit-Spin")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditText
			.EditWidth = -128
			.EditValue = 15
			.set_EditOption(exontrol.EXTOOLBARLib.EditOptionEnum.exEditMaxValue,1000)
		End With
		With .Add("Splider-Spin")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
			.EditWidth = -128
			.EditValue = 25
			.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
		End With
	End With
	.Refresh()
End With
79:
How can I assign a spin field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Spin[id=10][edittype=0x0200][edit=15][border=0][max=1000][editwidth=16],Edit-Spin[id=20][edittype=0x0201][edit=15][max=1000][ed" & _
"itwidth=-128],Splider-Spin[id=30][edittype=0x0203][edit=25][border=0][editwidth=-128]"
End With
78:
How can I add a vertical slider (method 2)

With Extoolbar1
	.ToString = "Vertical[id=10][edittype=0x0403][edit=25][border=0][height=128]"
End With
77:
How can I add a vertical slider (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Vertical")
			.ItemHeight = 128
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
			.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
			.EditWidth = 32
			.EditValue = 25
		End With
	End With
	.Refresh()
End With
76:
How can I disable an editor (method 2)

With Extoolbar1
	.ToString = "Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]"
End With
75:
How can I disable an editor (method 1)

With Extoolbar1
	With .Items
		With .Add("Disabled")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditText
			.EditWidth = -128
			.EditValue = "text-box"
			.Enabled = False
		End With
	End With
	.Refresh()
End With
74:
How can I lock an editor (method 2)

With Extoolbar1
	.ToString = "Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]"
End With
73:
How can I lock an editor (method 1)

With Extoolbar1
	With .Items
		With .Add("Locked")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditReadOnly Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditText
			.EditWidth = -128
			.EditValue = "disabled text-box"
		End With
	End With
	.Refresh()
End With
72:
How can I assign a font field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Font")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditFont
			.EditWidth = -128
			.EditValue = "Tahoma"
		End With
	End With
	.Refresh()
End With
71:
How can I assign a font field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Font[id=10][edittype=0x07][edit=Tahoma][editwidth=-128]"
End With
70:
How can I assign a color field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Color")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditColor
			.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
			.EditWidth = -128
			.EditValue = 255
		End With
	End With
	.Refresh()
End With
69:
How can I assign a color field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Color[id=10][edittype=0x06][edit=#FF0000][border=0][editwidth=-128]"
End With
68:
How can I assign a scrollbar field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("ScrollBar")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditScrollBar
			.EditWidth = -128
			.EditValue = "25"
		End With
	End With
	.Refresh()
End With
67:
How can I assign a scrollbar field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "ScrollBar[id=10][edittype=0x05][edit=25][editwidth=-128]"
End With
66:
Is it possible to change the tooltip beging shown when I change the slider/scroll/progress value

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Progress")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
			.set_EditOption(exontrol.EXTOOLBARLib.EditOptionEnum.exEditChangeToolTip,"`Current value is: ` + value")
		End With
	End With
	.Refresh()
End With
65:
How can I hide the tooltip beging shown when I change the slider/scroll/progress value

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Progress")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
			.set_EditOption(exontrol.EXTOOLBARLib.EditOptionEnum.exEditChangeToolTip,"")
		End With
	End With
	.Refresh()
End With
64:
How can I assign a progress field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Progress")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
		End With
	End With
	.Refresh()
End With
63:
How can I assign a progress field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Progress[id=10][edittype=0x04][edit=25][editwidth=-128]"
End With
62:
How can I assign a slider field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Slider")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
			.EditWidth = -128
			.EditValue = 25
		End With
		With .Add("Slider")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
			.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
			.EditWidth = -128
			.set_EditOption(exontrol.EXTOOLBARLib.EditOptionEnum.exEditMinValue,50)
			.set_EditOption(exontrol.EXTOOLBARLib.EditOptionEnum.exEditMaxValue,450)
			.set_EditOption(exontrol.EXTOOLBARLib.EditOptionEnum.exEditTickStyle,2)
			.set_EditOption(exontrol.EXTOOLBARLib.EditOptionEnum.exEditTickFrequency,50)
			.set_EditOption(exontrol.EXTOOLBARLib.EditOptionEnum.exEditTickLabel,"value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><font ;6><b><fgcolor" & _
" FF0000>'+value : '' ) )")
			.EditValue = 345
		End With
	End With
	.Refresh()
End With
61:
How can I assign a slider field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Slider[id=10][edittype=0x03][edit=25][editwidth=-128],Slider[id=20][edittype=0x03][edit=345][border=0][min=50][max=450][tick=2]" & _
"[freq=50][ticklabel=value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><" & _
"font ;6><b><fgcolor FF0000>'+value : '' ) )][editwidth=-128]"
End With
60:
How can I assign a mask (time) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Time")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = "99:00:00;;0;overtype,warning=Invalid character"
			.EditValue = "123456"
		End With
	End With
	.Refresh()
End With
59:
How can I assign a mask (time) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Time[id=10][edittype=0x02][edit=12:34:56][mask=99:00:00;;0;overtype,warning=Invalid character][editwidth=-128]"
End With
58:
How can I assign a mask (license key) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("License Key")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = "AAAA-AAAA-AAAA-AAAA"
			.EditValue = "1234"
		End With
	End With
	.Refresh()
End With
57:
How can I assign a mask (license key) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "License Key[id=10][edittype=0x02][edit=1234-____-____-____][mask=AAAA-AAAA-AAAA-AAAA][editwidth=-128]"
End With
56:
How can I assign a mask (IP address) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("IP Address")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = "{0,255}.{0,255}.{0,255}.{0,255}"
			.EditValue = "1.2.3.4"
		End With
	End With
	.Refresh()
End With
55:
How can I assign a mask (IP address) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "IP Address[id=10][edittype=0x02][edit=1.2.3.4][mask={0,255}.{0,255}.{0,255}.{0,255}][editwidth=-128]"
End With
54:
How can I assign a mask (phone) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Phone")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = "!(9999) 000 000;;;empty,select=4,overtype,beep"
			.EditValue = "0771638317"
		End With
	End With
	.Refresh()
End With
53:
How can I assign a mask (phone) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Phone[id=10][edittype=0x02][edit=(0771) 638 317][mask=!(9999) 000 000;;;empty,select=4,overtype,beep][editwidth=-128]"
End With
52:
How can I assign a mask (date) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = "`Date: `{1,12}/{1,31}/{1950,2050};;;select=1"
			.EditValue = #2/15/2015#
		End With
		With .Add("Date")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype"
			.EditValue = #2/15/2015#
		End With
	End With
	.Refresh()
End With
51:
How can I assign a mask (date) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "[id=10][edittype=0x02][edit=Date: 2/15/2015][mask=`Date: `{1,12}/{1,31}/{1950,2050};;;select=1][editwidth=-128],Date[id=20][edi" & _
"ttype=0x02][edit=02/15/2015][mask=!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,ov" & _
"ertype][editwidth=-128]"
End With
50:
How can I assign a mask (integer) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Integer")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = ";;;float,grouping=,digits=0"
			.EditValue = 1000
		End With
		With .Add("Integer-Grouping")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = ";;;float,decimal=,digits=0,select=1"
			.EditValue = 1000
		End With
		With .Add("Integer-In-Range")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = "{0,2050}"
			.EditValue = 1000
		End With
	End With
	.Refresh()
End With
49:
How can I assign a mask (integer) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Integer[id=10][edittype=0x02][edit=1000][mask=;;;float,grouping=,digits=0][editwidth=-128],Integer-Grouping[id=20][edittype=0x0" & _
"2][edit=1,000][mask=;;;float,decimal=,digits=0,select=1][editwidth=-128],Integer-In-Range[id=30][edittype=0x02][edit=1000][mask=" & _
"{0,2050}][editwidth=-128]"
End With
48:
How can I assign a mask field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Mask")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditMask
			.EditWidth = -128
			.EditMask = ";;;float,select=1"
			.EditValue = 1000
		End With
	End With
	.Refresh()
End With
47:
How can I assign a mask field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Text-Box[id=10][edittype=0x02][edit=1,000][mask=;;;float,select=1][editwidth=-128]"
End With
46:
How can I assign an edit / text-box to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Mask")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditText
			.EditValue = "this is a text"
			.EditWidth = -128
		End With
	End With
	.Refresh()
End With
45:
How can I assign an edit / text-box to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( Itm )
	End With
End Sub

With Extoolbar1
	.ToString = "Text-Box[edit=this is a text][editwidth=-128]"
End With
44:
How can I display a tab into the toolbar (method 2)

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(240,240,240))
	With .Items
		.ToString = "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-" & _
"100]))"
		With .Item(-10).Items
			.Add("",0,0).Padding = "8,0,0,0"
			With .Add("New Page")
				.ToString = "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>1</b></font></off>"
				With .Items.Item(0).Items
					With .Add("add here fields for page 1")
						.ID = -1000
						.Enabled = False
						.BackColor = Color.FromArgb(255,0,0)
					End With
				End With
			End With
			With .Add("New Page")
				.ToString = "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>2</b></font></off>"
				With .Items.Item(0).Items
					With .Add("add here fields for page 2")
						.ID = -1001
						.Enabled = False
						.BackColor = Color.FromArgb(0,255,0)
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.Refresh()
End With
43:
How can I add check-buttons to items, without showing the check-box (method 2)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Check 1")
					.Check = True
					.Checked = True
					.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
				End With
				With .Add("Check 2")
					.Check = True
					.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
				End With
				With .Add("Check 3")
					.Check = True
					.Checked = True
					.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
				End With
			End With
		End With
	End With
	.Refresh()
End With
42:
How can I add check-buttons to items, without showing the check-box (method 1)

With Extoolbar1
	.ToString = "[group=0x3](Check 1[chk=1][show=1],Check 2[chk=0][show=1],Check 3[chk=1][show=1])"
End With
41:
How can I add radio buttons to items, without showing the radio-buttons (method 2)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Radio 1",,1000)
					.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1001)
					.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1003)
					.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
				End With
				.Item(1000).Checked = True
			End With
		End With
	End With
	.Refresh()
End With
40:
How can I add radio buttons to items, without showing the radio-buttons (method 1)

With Extoolbar1
	.ToString = "[group=0x3](Radio 1[rad=1][show=1][grp=100][id=1000],Radio 2[rad=0][show=1][grp=100][id=1001],Radio 2[rad=0][show=1][grp=100][i" & _
"d=1002])"
End With
39:
How can I add check-buttons to items (method 2)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Check 1")
					.Check = True
					.Checked = True
				End With
				.Add("Check 2").Check = True
			End With
		End With
	End With
	.Refresh()
End With
38:
How can I add check-buttons to items (method 1)

With Extoolbar1
	.ToString = "[group=0x3](Check 1[chk=1],Check 2[chk=0])"
End With
37:
How can I add radio buttons to items (method 2)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Radio 1",,1000)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1001)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1003)
					.Radio = True
					.RadioGroup = 100
				End With
				.Item(1000).Checked = True
			End With
		End With
	End With
	.Refresh()
End With
36:
How can I add radio buttons to items (method 1)

With Extoolbar1
	.ToString = "[group=0x1](Radio 1[rad=1][grp=100][id=1000],Radio 2[rad=0][grp=100][id=1001],Radio 2[rad=0][grp=100][id=1002])"
End With
35:
How can I change the selection/highlighting color

With Extoolbar1
	.SelBackColor = Color.FromArgb(0,0,0)
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(128,0,0))
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotForeColor,Color.FromArgb(255,255,255))
	.ToString = "[group=3](Item 1[chk],Item 2[chk])"
End With
34:
How can I prevent showing/hide the border on the selected/highlighted item

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,.SelBackColor)
	.ToString = "Item 1,Item 2"
End With
33:
How can I display a tab into the toolbar (method 1)

With Extoolbar1
	.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(240,240,240))
	.ToString = "[group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03]([id=50][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=60][ty" & _
"p=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][grou" & _
"p=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=80],add here fields for page 1[id=-1000][dis])),Page<off -5><font " & _
";5><b>2</b></font></off>[id=100][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(2" & _
"40,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=120],add here fields for page 2[id=-10" & _
"01][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
	With .Items.Item(-1000)
		.BackColor = Color.FromArgb(255,0,0)
	End With
	With .Items.Item(-1001)
		.BackColor = Color.FromArgb(0,255,0)
	End With
End With
32:
How do I prevent highlighting the item (method 2.b)

With Extoolbar1
	With .Items
		.Add("No highlight").Enabled = False
		.Add("Item 2")
		.Add("Item 3")
	End With
	.Refresh()
End With
31:
How do I prevent highlighting the item (method 2.a)

With Extoolbar1
	With .Items
		With .Add("No highlight",2)
			.Items.Add("")
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			.ShowPopupArrow = False
		End With
		.Add("Item 2")
		.Add("Item 3")
	End With
	.Refresh()
End With
30:
How do I prevent highlighting the item (method 1.b)

With Extoolbar1
	.Items.ToString = "No highlight[dis],Item 2,Item 3"
	.Refresh()
End With
29:
How do I prevent highlighting the item (method 1.a)

With Extoolbar1
	.Items.ToString = "No highlight[group=0x3][arrow=0]([]),Item 2,Item 3"
	.Refresh()
End With
28:
How can I can I assign pictures or images for the item (method 2)

With Extoolbar1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	With .Items
		.Add("Item").HTMLImage = "pic1"
		.Add("Item").HTMLImage = "pic2"
		.Add("",1)
		.Add("Item <img>pic1</img>")
		.Add("Item <img>pic2</img>")
		.Add("",1)
		.Add("<img>pic1</img> Item <img>pic2</img>")
	End With
	.Refresh()
End With
27:
How can I can I assign pictures or images for the item (method 1)

With Extoolbar1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	.ToString = "Item[himg=pic1],Item[himg=pic2],[sep],Item <img>pic1</img>,Item <img>pic2</img>,[sep],<img>pic1</img> Item <img>pic2</img>"
End With
26:
How can I can I assign icons for the item (method 2)

With Extoolbar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Items
		.Add("Item").Image = 1
		.Add("Item").Image = 2
		.Add("",1)
		.Add("Item <img>1</img>")
		.Add("Item <img>2</img>")
		.Add("",1)
		.Add("Item <img>1</img>").Image = 1
	End With
	.Refresh()
End With
25:
How can I can I assign icons for the item (method 1)

With Extoolbar1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Items.ToString = "Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]"
	.Refresh()
End With
24:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 2)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		.Padding = "2,2,2,2"
		.BackColor32 = &H1000000
		.Add("Item 1")
		.Add("Item 2")
		.Add("Item 3")
	End With
	.Refresh()
End With
23:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 1)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Items.ToString = "[itemsbg=0x1000000][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	.Refresh()
End With
22:
How can I change the background color for a collection of items/group (method 2)

With Extoolbar1
	With .Items
		.Padding = "2,2,2,2"
		.BackColor = Color.FromArgb(255,0,0)
		.Add("Item 1")
		.Add("Item 2")
		.Add("Item 3")
	End With
	.Refresh()
End With
21:
How can I change the background color for a collection of items/group (method 1)

With Extoolbar1
	.Items.ToString = "[itemsbg=RGB(255,0,0)][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	.Refresh()
End With
20:
How can I change the visual appearance / background color (EBN) for a specified item (method 2)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		.Add("Item 1")
		.Add("Item 2").BackColor32 = &H1000000
		.Add("Item 3")
	End With
	.Refresh()
End With
19:
How can I change the visual appearance / background color (EBN) for a specified item (method 1)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Items.ToString = "Item 1,Item 2[bg=0x1000000],Item 3"
	.Refresh()
End With
18:
How can I change the background color for a specified item (method 2)

With Extoolbar1
	With .Items
		.Add("Item 1")
		.Add("Item 2").BackColor = Color.FromArgb(255,0,0)
		.Add("Item 3")
	End With
	.Refresh()
End With
17:
How can I change the background color for a specified item (method 1)

With Extoolbar1
	.Items.ToString = "Item 1,Item 2[bg=RGB(255,0,0)],Item 3"
	.Refresh()
End With
16:
How can I change the visual appearance (EBN) of the floating popups (method 2, applies to single popup)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		With .Add("Popup",2).Items
			.PopupAppearance = &H1000000
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
		End With
	End With
	.Refresh()
End With
15:
How can I change the visual appearance (EBN) of the floating popups (method 1, applies to all)

With Extoolbar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
	.PopupAppearance = &H1000000
	.Refresh()
End With
14:
How can I change the visual appearance of the floating popups (method 2, applies to single popup)

With Extoolbar1
	With .Items
		With .Add("Popup",2).Items
			.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
		End With
	End With
	.Refresh()
End With
13:
How can I change the visual appearance of the floating popups (method 1, applies to all)

With Extoolbar1
	.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
	.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
	.Refresh()
End With
12:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 2)

With Extoolbar1
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
		End With
	End With
	.Refresh()
End With
11:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 1)

With Extoolbar1
	.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
	.Refresh()
End With
10:
How can I arrange the items by grouping (method 2)

With Extoolbar1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Horizontal",2)
					.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
					With .Items
						.Add("Sub-Item <b>A</b>")
						.Add("Sub-Item <b>B</b>")
						.Add("Sub-Item <b>C</b>")
					End With
				End With
				.Add("").CaptionWidth = 16
				With .Add("Vertical",2)
					.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
					.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
					With .Items
						.Add("Sub-Item <b>A</b>")
						.Add("Sub-Item <b>B</b>")
						.Add("Sub-Item <b>C</b>")
					End With
				End With
				.Add("").CaptionWidth = 16
				With .Add("Popup",2)
					With .Items
						.Add("Sub-Item <b>A</b>")
						.Add("Sub-Item <b>B</b>")
						.Add("Sub-Item <b>C</b>")
					End With
				End With
			End With
		End With
	End With
	.Refresh()
End With
9:
How can I arrange the items by grouping (method 1)

With Extoolbar1
	.Items.ToString = "[group=0x03](Horizontal[group=0x01](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Vertical[group=0x0" & _
"101][align=1](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Popup(Sub-Item <b>A</b>,Sub-Item <b>B</b>" & _
",Sub-Item <b>C</b>),[captionwidth=160])"
	.Refresh()
End With
8:
How can I arrange some items vertically, and some horizontally (method 2)

With Extoolbar1
	With .Items
		With .Add("",2)
			With .Items
				.Add("1")
				.Add("2")
				.Add("3")
			End With
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
		End With
		With .Add("",2)
			With .Items
				.Add("4")
				.Add("5")
				.Add("6")
			End With
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
		End With
		With .Add("",2)
			With .Items
				.Add("7")
				.Add("8")
				.Add("9")
			End With
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
		End With
	End With
	.Refresh()
End With
7:
How can I arrange some items vertically, and some horizontally (method 1)

With Extoolbar1
	.Items.ToString = "[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)"
	.Refresh()
End With
6:
How can I assign multiple-lines to an item (method 2)

With Extoolbar1
	With .Items
		With .Add("",2)
			With .Items
				.Add("Item 1").Caption = "Item <br><c><b>1"
				.Add("Item 2").Caption = "Item <br><c><b>2"
				.Add("Item 3").Caption = "Item <br><c><b>3"
			End With
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
		End With
	End With
	.Refresh()
End With
5:
How can I assign multiple-lines to an item (method 1)

With Extoolbar1
	.Items.ToString = "[group=3](Item <br><c><b>1,Item <br><c><b>2,Item <br><c><b>3)"
	.Refresh()
End With
4:
How can I add new items arranged horizontally to the toolbar control (method 2)

With Extoolbar1
	With .Items
		With .Add("",2)
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
			.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
		End With
	End With
	.Refresh()
End With
3:
How can I add new items arranged horizontally to the toolbar control (method 1)

With Extoolbar1
	.Items.ToString = "[group=3](Item 1,Item 2,Item 3)"
	.Refresh()
End With
2:
How can I add new items to the toolbar control (method 2)

With Extoolbar1
	With .Items
		.Add("Item 1")
		.Add("Item 2")
		.Add("Item 3")
	End With
	.Refresh()
End With
1:
How can I add new items to the toolbar control (method 1)

With Extoolbar1
	.Items.ToString = "Item 1,Item 2,Item 3"
	.Refresh()
End With