87:
How can I display the control directly on the screen

With RadialMenu1
	.BeginUpdate 
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.HTMLPicture("arrow") = "stock_mail_filters_apply.png"
	.HTMLPicture("settings") = "settings.png"
	.HTMLPicture("hard") = "download.png"
	.HTMLPicture("favorites") = "favorites.png"
	.HTMLPicture("remove") = "remove.png"
	.HTMLPicture("refresh") = "refresh.png"
	.HTMLPicture("synchronize") = "synchronize.png"
	.HTMLPicture("preview") = "preview.png"
	.HTMLPicture("search") = "search.png"
	.ToString = "Save[img=hard],Settings[img=settings][browse=2][custom=16],Favorites[img=favorites](1,2),Refresh[img=refresh],<c>Quit<br><c>App" & _
"lication[img=remove],Synchronize[img=synchronize],Search[img=search](1,2),Preview[img=preview](1,2)"
	.Expanded = True
	.DisplayRadial(1) = 3
	.BackgroundPicture = "Background\frontc.png"
	.SubItemsBackColor = -1
	.SubItemsSize = "18 * dpi"
	.EndUpdate 
	.Float = True ' True
End With
86:
How do I add a radial-slider control

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.InflateCustom = .InflateItems
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(4) = RGB(0,0,0)
	.RadialLineStyle(4) = 2
	.RadialLineSize(4) = 3
	With .Items
		With .Add("Slider")
			.BrowseType = 2
			.BrowseCustomType = 16
			.BrowseCustom(9) = 35
		End With
	End With
	.BrowseItem = .Items.Item("Slider")
End With
85:
How can I display a slider directly on the radial menu, with no items...

With RadialMenu1
	.BeginUpdate 
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Expanded = True
	.InflateCustom = "-4 * dpi"
	.RadialLineColor(4) = RGB(0,0,0)
	.RadialLineSize(4) = 3
	.RadialLineAlpha(4) = 128
	.CustomPicture = "Background\frame.png"
	With .Root
		.BrowseType = 2
		.BrowseCustomType = 16
		.BrowseCustom(9) = 25
	End With
	.Refresh 
	.EndUpdate 
End With
84:
How can I programatically browses for a new item

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.InflateCustom = .InflateItems
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(4) = RGB(0,0,0)
	.RadialLineStyle(4) = 2
	.RadialLineSize(4) = 3
	With .Items
		With .Add("Slider")
			.BrowseType = 2
			.BrowseCustomType = 16
		End With
	End With
	.BrowseItem = .Items.Item("Slider")
End With
83:
How can I display the items rotated

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.HTMLPicture("arrow") = "arrow.png"
	.Expanded = True
	.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
	.DisplayRadial(1) = 1
	.DisplayCenter(1) = 0.05
	.EndUpdate 
End With
82:
Is it possible to display the arrow into the items section, and how I can change the default position

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.HTMLPicture("arrow") = "arrowu.png"
	.DisplayArrow = 1
	.DisplayCenterArrow(1) = 0
	.Expanded = True
	.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
	.EndUpdate 
End With
81:
Can I display the arrow into the items section

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.DisplayArrow = 1
	.Expanded = True
	.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
	.EndUpdate 
End With
80:
How can I know if the cursor is hovering the center ring ( parent zone )
' MouseMove event - Occurs when the user moves the mouse.
Private Sub RadialMenu1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With RadialMenu1
		Debug.Print( "ParentOnPoint " )
		Debug.Print( .ParentOnPoint(-1,-1) )
	End With
End Sub

With RadialMenu1
	.Expanded = True
End With
79:
How can I specify the size to display the images/pictures into the items

With RadialMenu1
	.BeginUpdate 
	.AllowToggleExpand = False
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.ItemsImageHeight(1) = "64*dpi"
	.ItemsImageWidth(1) = "64*dpi"
	With .Items
		.Add "","color_line.png"
		.Add "","color_fill.png"
		.Add "","format_font_size_less.png"
		.Add "","edit_undo.png"
		.Add "","edit_redo.png"
		.Add "","edit_copy.png"
		.Add "","fileview_text.png"
		.Add "","checkmark_korganizer.png"
	End With
	.EndUpdate 
End With
78:
By default, the parent image is 32-pixels wide. Can I display it larger

With RadialMenu1
	.BeginUpdate 
	.AllowToggleExpand = False
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.HTMLPicture("logo") = "settings.png"
	.ParentSize = "96 * dpi"
	.ParentImageWidth(-1) = "64*dpi"
	.ParentImageHeight(-1) = "64*dpi"
	.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
	.EndUpdate 
End With
77:
Is it possible to specify where to display the item's caption

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
	.Items.Item(0).BackColor(3) = RGB(240,240,240)
	.DisplayCenter(1) = 0.85
	.EndUpdate 
End With
76:
How can I disable browsing the items, or prevent displaying its children
With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.AllowBrowseItem = False
	.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
	.EndUpdate 
End With
75:
How do I get the item from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub RadialMenu1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With RadialMenu1
		Debug.Print( "Full-Item: " )
		Debug.Print( .ItemFromPoint(3,-1,-1).Caption(1) )
		Debug.Print( "Item: " )
		Debug.Print( .ItemFromPoint(1,-1,-1).Caption(1) )
		Debug.Print( "SubItem: " )
		Debug.Print( .ItemFromPoint(2,-1,-1).Caption(2) )
	End With
End Sub

With RadialMenu1
	.Expanded = True
	.Items.ToString = "Item 1[scap=sub item 1],Item 2[scap=sub item 2],Item 3[scap=sub item 3],Item 4[scap=sub item 4],Item 5[scap=sub item 5],Item 6[" & _
"scap=sub item 6],Item 7[scap=sub item 7],Item 8[scap=sub item 8]"
End With
74:
How do I get the index of the pie from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub RadialMenu1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With RadialMenu1
		Debug.Print( "Full-Index: " )
		Debug.Print( .IndexFromPoint(3,-1,-1) )
		Debug.Print( "Index: " )
		Debug.Print( .IndexFromPoint(1,-1,-1) )
		Debug.Print( "Sub-Index: " )
		Debug.Print( .IndexFromPoint(2,-1,-1) )
	End With
End Sub

With RadialMenu1
	.Expanded = True
End With
73:
How can I select an item

' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As Object)
	' SelectedIndex(3) = Item.Index
End Sub

With RadialMenu1
	.BeginUpdate 
	.SelBackAlpha(1) = 32
	.SelBackAlpha(2) = 128
	.SelForeColor(3) = RGB(0,0,0)
	.RadialLineSize(8) = -1
	.RadialLineAlpha(8) = 32
	.RadialLineColor(11) = -1
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.SelectedIndex(3) = 0
	.EndUpdate 
End With
72:
How can I use the sub-items zone only

With RadialMenu1
	.BeginUpdate 
	.AllowToggleExpand = False
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.HTMLPicture("logo") = "settings.png"
	.RadialLineColor(6) = .SubItemsBackColor
	.RadialLineColor(5) = -1
	.SubItemsSize = "64 * dpi"
	.ParentSize = "value - 66 * dpi"
	.ParentImageWidth(-1) = "64*dpi"
	.ParentImageHeight(-1) = "64*dpi"
	.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
	.RadialLineSize(11) = 0
	.RadialLineSize(10) = -1
	.RadialLineColor(10) = &H8000000d
	.RadialLineAlpha(10) = 128
	.ItemsBackColor = .SubItemsBackColor
	With .Items
		.Add "","color_line.png",2
		.Add "","color_fill.png",2
		.Add "","format_font_size_less.png",2
		.Add "","edit_undo.png",2
		.Add "","edit_redo.png",2
		.Add "","edit_copy.png",2
		.Add "","fileview_text.png",2
		.Add "","checkmark_korganizer.png",2
	End With
	.EndUpdate 
End With
71:
Is it possible to display all items with a different rotation angle

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.DisplayAngle = -7.5
	.DisplayArrow = 1
	.DisplayRadial(1) = 1
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.ParentSize = "48 * dpi"
	.ParentPicture = "Background\frontb.png"
	.ArrowImage = "arrow.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.InflateParentPicture = "72 * dpi"
	.EndUpdate 
End With
70:
How can I programatically advance / browse for the parent item (method 2)
' RClick event - Occurs once the user right clicks the control.
Private Sub RadialMenu1_RClick()
	With RadialMenu1
		.BrowseItem = .BrowseItem.Parent
	End With
End Sub

With RadialMenu1
	.Expanded = True
	.DisplayArrow = 1
	With .Items
		With .Add("Volume")
			.Caption(2) = "slider"
			.BrowseType = 2
			.BrowseCustomType = 16
		End With
		With .Add("Item").Items
			.Add "Child 1"
			.Add "Child 2"
		End With
	End With
End With
69:
How can I programatically advance / browse for the parent item (method 1)
' RClick event - Occurs once the user right clicks the control.
Private Sub RadialMenu1_RClick()
	With RadialMenu1
		.GoBack 
	End With
End Sub

With RadialMenu1
	.Expanded = True
	.DisplayArrow = 1
	With .Items
		With .Add("Volume")
			.Caption(2) = "slider"
			.BrowseType = 2
			.BrowseCustomType = 16
		End With
		With .Add("Item").Items
			.Add "Child 1"
			.Add "Child 2"
		End With
	End With
End With
68:
Can I display the pointer with a different angle

With RadialMenu1
	.BeginUpdate 
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = False
	.ParentSize = "36*dpi"
	.ParentImageHeight(-1) = "48*dpi"
	.ParentImageWidth(-1) = "48*dpi"
	.RadialLineSize(8) = -1
	.RadialLineAlpha(8) = 32
	.RadialLineColor(11) = -1
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.PointerAngle = 12
	.EndUpdate 
End With
67:
How can I use the pointer (select sample)

' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As Object)
	' PointerIndex = Item.Index
	With RadialMenu1
		.SelectedIndex(3) = .PointerIndex
	End With
End Sub

With RadialMenu1
	.BeginUpdate 
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.SelBackAlpha(1) = 32
	.SelBackAlpha(2) = 128
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = False
	.SelForeColor(3) = RGB(0,0,0)
	.ParentSize = "36*dpi"
	.ParentImageHeight(-1) = "48*dpi"
	.ParentImageWidth(-1) = "48*dpi"
	.RadialLineSize(8) = -1
	.RadialLineAlpha(8) = 32
	.RadialLineColor(11) = -1
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.PointerIndex = 0
	.SelectedIndex(3) = .PointerIndex
	.EndUpdate 
End With
66:
How can I use the pointer (hot sample)

With RadialMenu1
	.BeginUpdate 
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.PointerIndex = -1
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = True
	.SelBackAlpha(3) = 128
	.SelForeColor(3) = RGB(0,0,0)
	.ParentSize = "36*dpi"
	.ParentImageHeight(-1) = "48*dpi"
	.ParentImageWidth(-1) = "48*dpi"
	.RadialLineSize(8) = -1
	.RadialLineAlpha(8) = 32
	.RadialLineColor(11) = -1
	.Expanded = True
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.EndUpdate 
End With
65:
Is it possible to apply the control's background picture on the parent zone too

With RadialMenu1
	.BeginUpdate 
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.BackgroundPicture = "Background\fronte.png"
	.ForeColor = RGB(255,255,255)
	.Expanded = True
	.ParentSize = "48 * dpi"
	.DisplayRadial(1) = 1
	.DisplayCenter(1) = 0.23
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.ParentBackColor = -1
	.ExcludeParentFromItems = True
	.RadialLineColor(6) = RGB(0,0,0)
	.RadialLineAlpha(6) = 128
	.RadialLineStyle(5) = 2
	.RadialLineAlpha(5) = 128
	.EndUpdate 
End With
64:
Can I display the picture on the parent zone, a bit larger

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.ParentSize = "48 * dpi"
	.ParentPicture = "Background\frontb.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.InflateParentPicture = "64 * dpi"
	.EndUpdate 
End With
63:
Is it possible to assign a different background picture when displaying a slider/custom data

With RadialMenu1
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.DisplayArrow = 1
	.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
	.InflateRadialMenu = "-4*dpi"
	.InflateCustom = "-4*dpi"
	.CustomPicture = "Background\frontb.png"
	.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	With .Items.Item("Item 2")
		.BrowseType = 2
		.BrowseCustomType = 16
	End With
	.BrowseItem = .Items.Item("Item 2")
End With
62:
How can I customize the custom part of the control, the inside ring/circle

With RadialMenu1
	.Expanded = True
	.DisplayArrow = 1
	.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
	.InflateRadialMenu = "-4*dpi"
	.InflateCustom = "-4*dpi"
	.CustomBackColor = RGB(128,128,128)
	.CustomBackAlpha = 128
	.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	With .Items.Item("Item 2")
		.BrowseType = 2
		.BrowseCustomType = 16
	End With
	.BrowseItem = .Items.Item("Item 2")
End With
61:
How do I prevent expanding / collapsing the radial menu
With RadialMenu1
	.AllowToggleExpand = False
	.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	With .Items.Item("Item 2")
		.BrowseType = 2
		.BrowseCustomType = 16
	End With
End With
60:
Is it possible to change the parent's picture/image when expanding collapsing the radial menu

' BrowseItem event - Notifies once the user browses for a new item.
Private Sub RadialMenu1_BrowseItem(ByVal Item As Object)
	With RadialMenu1
		Debug.Print( "Current State: " )
		Debug.Print( .State )
	End With
End Sub

' SelectParent event - Occurs once the user clicks the parent of the item.
Private Sub RadialMenu1_SelectParent()
	With RadialMenu1
		Debug.Print( "Current State: " )
		Debug.Print( .State )
	End With
End Sub

With RadialMenu1
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	With .Items.Item("Item 2")
		.BrowseType = 2
		.BrowseCustomType = 16
	End With
	.ParentImage(0) = "format_font_size_less.png"
	.ParentImage(1) = "fileview_text.png"
	.ParentImage(2) = "edit_undo.png"
End With
59:
Is it possible to assign a different picture on the parent zone (center ring)

With RadialMenu1
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.ParentSize = "48 * dpi"
	.ParentPicture = "Background\frontb.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
58:
Is it possible to assign a different picture on the items zone (inner ring)

With RadialMenu1
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.ItemsPicture = "Background\frontc.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
57:
How can I change the control's background picture

With RadialMenu1
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.BackgroundPicture = "Background\fronta.png"
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
56:
How can I hide the line being shown around the item form the cursor

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineSize(11) = 0
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
55:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(13) = RGB(0,0,0)
	.RadialLineAlpha(13) = 64
	.RadialLineSize(13) = -1
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
54:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(12) = RGB(0,0,0)
	.RadialLineAlpha(12) = 64
	.RadialLineSize(12) = -1
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
53:
Is it possible to highlight the entire item, when cursor hovers it

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(11) = RGB(0,0,0)
	.RadialLineAlpha(11) = 64
	.RadialLineSize(11) = -1
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
52:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(11) = RGB(0,0,0)
	.RadialLineStyle(11) = 2
	.RadialLineSize(11) = 3
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
51:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(10) = RGB(0,0,0)
	.RadialLineStyle(10) = 2
	.RadialLineSize(10) = 3
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
50:
How can I change the border around the items zone, when cursor hovers it ( inner ring )

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(9) = RGB(0,0,0)
	.RadialLineStyle(9) = 2
	.RadialLineSize(9) = 3
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
49:
How can I change the border around the parent zone, when cursor hovers it ( center ring )

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(8) = RGB(0,0,0)
	.RadialLineStyle(8) = 2
	.RadialLineSize(8) = 3
End With
48:
How can I change the border around the items zone ( inner ring )

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(7) = RGB(0,0,0)
	.RadialLineStyle(7) = 2
	.RadialLineSize(7) = 3
End With
47:
How can I change the border around the parent zone ( center ring )

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(6) = RGB(0,0,0)
	.RadialLineStyle(6) = 2
	.RadialLineSize(6) = 3
End With
46:
How can I change the grid lines in the items zone ( inner ring )

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(5) = RGB(0,0,0)
	.RadialLineStyle(5) = 2
	.RadialLineSize(5) = 3
End With
45:
How can I change the border around the slider / custom part of the control

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.InflateCustom = .InflateItems
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(4) = RGB(0,0,0)
	.RadialLineStyle(4) = 2
	.RadialLineSize(4) = 3
	With .Items
		With .Add("Slider")
			.BrowseType = 2
			.BrowseCustomType = 16
		End With
	End With
	.BrowseItem = .Items.Item("Slider")
End With
44:
How can I change the grid lines in the subitems zone ( outer ring )

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(3) = RGB(0,0,0)
	.RadialLineStyle(3) = 2
	.RadialLineSize(3) = 3
End With
43:
How can I change the border around the subitems (exRadialSubItemsBorder)

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(2) = RGB(0,0,0)
	.RadialLineStyle(2) = 2
	.RadialLineSize(2) = 3
End With
42:
How can I change the border around the radial menu (exRadialBorder)

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.RadialLineColor(1) = RGB(0,0,0)
	.RadialLineStyle(1) = 2
	.RadialLineSize(1) = 3
End With
41:
How can I customize the parent part of the control, the center ring/circle

With RadialMenu1
	.Expanded = True
	.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
	.ParentSize = "48 * dpi"
	.ParentImageHeight(-1) = "78 * dpi"
	.ParentImageWidth(-1) = "78 * dpi"
	.ParentBackColor = RGB(0,255,0)
	.ParentBackAlpha = 128
	.ExcludeParentFromItems = True
End With
40:
How can I prevent showing the arrow in the outer ring

With RadialMenu1
	.Expanded = True
	.ArrowImage = ""
	.Items.ToString = "Child(SubChild)"
End With
39:
Is it possible to change the default arrow, that items with children display (method 2)

With RadialMenu1
	.Expanded = True
	.HTMLPicture("pic1") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEI" & _
"JULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRyg" & _
"XCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI"
	.ArrowImage = "pic1"
	.Items.ToString = "Child(SubChild)"
End With
38:
Is it possible to change the default arrow, that items with children display (method 1)

With RadialMenu1
	.HTMLPicture("arrow") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEI" & _
"JULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoW" & _
"T8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA=="
	.Expanded = True
	.Items.ToString = "Child(SubChild)"
End With
37:
How can I change the logo image

With RadialMenu1
	.HTMLPicture("logo") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
End With
36:
How can I customize the items part of the control, the inside ring/circle

With RadialMenu1
	.DisplayRadial(3) = 1
	.Expanded = True
	.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
	.InflateRadialMenu = "-4*dpi"
	.InflateItems = "-4*dpi"
	.ItemsBackColor = RGB(0,255,0)
	.ItemsBackAlpha = 128
End With
35:
How can I customize the subitems part of the control, the outside ring/circle

With RadialMenu1
	.Expanded = True
	.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
	.InflateRadialMenu = "-4*dpi"
	.SubItemsSize = "48 * dpi"
	.SubItemsBackColor = RGB(0,255,0)
	.SubItemsBackAlpha = 128
End With
34:
Can I expand/shrink the radial menu relative to its border/shadow

With RadialMenu1
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.InflateRadialMenu = "-6*dpi"
End With
33:
Is it possible to remove/hive the control's shadow

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
End With
32:
How do I change the color of the control's shadow

With RadialMenu1
	.Expanded = True
	.ShadowColor = RGB(255,0,0)
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
End With
31:
How can I evaluate/format an expression using the control

With RadialMenu1
	.AllowToggleExpand = False
	.DisplayAngle = -66
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Caption(0) = .FormatABC("`The number of items is: <b>` + value",.Items.Count)
End With
30:
Is it possible to display some extra captions on the control's background

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.MinVisibleCount = 6
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Caption(0) = "This is a caption to be displayed on the control's background."
	.ExtraCaption("extra",0) = "This is an extra caption to be displayed on the control's background."
	.ExtraCaption("extra",3) = 2
	.ExtraCaption("extra",8) = True
	.ExtraCaption("extralogo",0) = "<img>logo:64</img>"
	.ExtraCaption("extralogo",3) = 4
	.ExtraCaption("extralogo",4) = "width-twidth"
	.EndUpdate 
End With
29:
What events the control supports
' Event event - Notifies the application once the control fires an event.
Private Sub RadialMenu1_Event(ByVal EventID As Long)
	With RadialMenu1
		Debug.Print( .EventParam(-2) )
	End With
End Sub

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.EndUpdate 
End With
28:
How can I use/load images/pictures

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.HTMLPicture("relative") = "settings.png"
	.HTMLPicture("absolute") = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png"
	.HTMLPicture("encoded") = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN" & _
"5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKL" & _
"cAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRCh" & _
"QnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8" & _
"FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJH" & _
"h+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQ" & _
"Z9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfF" & _
"GKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu" & _
"/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZo" & _
"cwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH" & _
"6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYAB" & _
"FhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6Pc" & _
"EAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBG" & _
"DMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoV" & _
"RqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M" & _
"8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" & _
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMg" & _
"WQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
	.BackgroundPicture = "Background\frame.png"
	With .Items
		.Add "Relative 1","relative"
		.Add("Relative 1").Image(1) = "settings.png"
		.Add "Aboslute 1","absolute"
		.Add "Aboslute 2","favorites.png"
		.Add "Encoded 1","encoded"
		.Add("Encoded 2").Image(1) = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN" & _
"5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKL" & _
"cAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRCh" & _
"QnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8" & _
"FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJH" & _
"h+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQ" & _
"Z9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfF" & _
"GKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu" & _
"/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZo" & _
"cwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH" & _
"6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYAB" & _
"FhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6Pc" & _
"EAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBG" & _
"DMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoV" & _
"RqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M" & _
"8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" & _
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMg" & _
"WQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
		.Add "<c><img>relative</img><br><c>Relative 3"
		.Add "<c>Relative 4<br><c><img>relative</img>","relative"
	End With
	.EndUpdate 
End With
27:
Does your control supports tooltips (method 2)

' MouseMove event - Occurs when the user moves the mouse.
Private Sub RadialMenu1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With RadialMenu1
		.ShowToolTip .FormatABC("`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",.IndexFromPoint(3,-1,-1)),"Info",0,"8","8"
	End With
End Sub

With RadialMenu1
	.BeginUpdate 
	.DisplayAngle = -45
	.Expanded = True
	With .Items
		.ToString = "Item 0"
		.Add "Item 1"
		.Add "Item 2"
	End With
	.EndUpdate 
End With
26:
Can I change the visual appearance of the control's tooltip

With RadialMenu1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(64) = &H1000000
	.DisplayAngle = -45
	.Expanded = True
	With .Items
		.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
		.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
		With .Add("Item 2")
			.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
			.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
		End With
	End With
	.EndUpdate 
End With
25:
Does your control supports tooltips (method 1)

With RadialMenu1
	.DisplayAngle = -45
	.Expanded = True
	With .Items
		.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
		.Add("Item 1").Tooltip(1) = "This is a bit of text that shown when user <b>hovers</b> the item"
		With .Add("Item 2")
			.Tooltip(1) = "This is a bit of text that shown when user hovers the item"
			.Tooltip(2) = "This is a bit of text that shown when user hovers the sub-item"
		End With
	End With
End With
24:
How can I use/load icons

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons"
	.Images "copy.ico"
	.Images "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico"
	.Images "gBJJgBggAAQAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUnOktd54mD/lp0f5wmz/Ns5f5qnj/NE/f5noT/M1FolGopmo9KpNLpxfqDvldTq" & _
"lVq1XrFZrVbrldr1fjKPsT/ftlf72er0s71er/e72e1ut9ye90uz3vF3vN4ut8u1NsGBwWDwmFw2DUWJf9peb/UyXSj/Yq+Xj/Y7BX7/ZLDYL/ZTFYeeYrEf7LY2kZbH" & _
"Yul1T/arTaT/Kq4Kb/G7IGz/cD5cD/Ne/f+H4XD4nF41UWvJxb0xq4Viqf66V6sf68WKvf69WSw7KzWL/Xy0WXg8T/X/l8/jbzcbb/MDAL/uanxcb7cb/Pv54PH/n9/z" & _
"/qsY8BOWxq0LUtC2reuK8QWvcHL7B67HAeTem2er2n0fx9H+SEOv3AEQRDETDl/Ep3mWZJkH+ZhlGUf5mmWZcXmZGUaRkZRkmSf5kQG0bSGEYTOmBErsl4ypdFyXJ/lu" & _
"W5bH+WkoH+TEpqlEcrSvLCsKEM5Am6bT2n4eq6zDMcxH/MkzzMfZ6LifR5rafB4wKd54H+eR1HWf52nIcp/nKbhun+SpJEkf4aUOQMs0VRdFAbRwImfSJ/nyeS1TQclA" & _
"H+fR7Lqc52PuGBVBgf4klaIx/mMYRbs8XEnGZIc9T4f5vmua5/j3XB/gPXYI0ZX1fwAgiCD/YhPnIcJxTSup+nyfZ/nceh2n+HRYh4f4HFCCNr2zaZYh2f51ngdB/nwe" & _
"a1T3PpbFk8Yn3aT9hJJYF5Xm4V4A1e4Q0iZ9J0rZ54HSf4glqIh/gwU4OH+FxahxhOF4Lg5/iAWYhH+chzG8f5znAcJ/ksSpKn+CORBDeF6ZNk6wXheA5ZYR5gmUYWIl" & _
"kIp/g+VgTH+Gxc4oJRiiyf4jmGKuc53mubn+HBVB8f5MlETR/itqJH5VYWUatq6r6pqgQkeE5nhSWIYn/sGxbIf4wmmOp/imZQybHsO37LuGua9rWVaxvG8ozu2+a0GZ" & _
"bh6f48nCSKgmsPh/7/wO+8Zqu9cfq3G8aFBaYYL5tEIf4omgOJ/8phnJcZyHR5N0O+gqVgUn+Fhgisf4TF4JZ/9R1XTb50ncWB227AiUgQ5D33gd/3vf93rXc+RRaKh8" & _
"lfmI6j6Q72AF4oyQDBIf5N6IC"
	.HTMLPicture("icon") = "download.ico"
	With .Items
		.ToString = "Icon 0[img=0]"
		.Add "Icon 1",1
		.Add "Icon 2","print.ico"
		.Add("Icon 3").Image(2) = "icon"
	End With
	.EndUpdate 
End With
23:
How can I load items /images to the control, in sub-items zone

With RadialMenu1
	.BeginUpdate 
	.AllowToggleExpand = False
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.HTMLPicture("logo") = "settings.png"
	.RadialLineColor(6) = .SubItemsBackColor
	.RadialLineColor(5) = -1
	.SubItemsSize = "64 * dpi"
	.ParentSize = "value - 66 * dpi"
	.ParentImageWidth(-1) = "64*dpi"
	.ParentImageHeight(-1) = "64*dpi"
	.ParentCaption(-1) = "<font ;14><c>System Settings</font><br><c>Surround"
	.RadialLineSize(11) = 0
	.RadialLineSize(10) = -1
	.RadialLineColor(10) = &H8000000d
	.RadialLineAlpha(10) = 128
	.ItemsBackColor = .SubItemsBackColor
	With .Items
		.Add "","color_line.png",2
		.Add "","color_fill.png",2
		.Add "","format_font_size_less.png",2
		.Add "","edit_undo.png",2
		.Add "","edit_redo.png",2
		.Add "","edit_copy.png",2
		.Add "","fileview_text.png",2
		.Add "","checkmark_korganizer.png",2
	End With
	.EndUpdate 
End With
22:
How can I load items /images to the control

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.HTMLPicture("arrow") = "arrow.png"
	.SubItemsBackColor = RGB(190,190,190)
	.ShadowColor = .SubItemsBackColor
	.RadialLineColor(6) = .SubItemsBackColor
	.RadialLineColor(5) = -1
	With .Items
		.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
		.Add("Background-Color","color_fill.png").Items.ToString = "Background"
		.Add("Font","format_font_size_less.png").Items.ToString = "Font"
		.Add("Undo","edit_undo.png").Items.ToString = "Undo"
		.Add("Redo","edit_redo.png").Items.ToString = "Redo"
		.Add("Copy","edit_copy.png").Items.ToString = "Copy"
		.Add("List","fileview_text.png").Items.ToString = "List"
		.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
	End With
	.EndUpdate 
End With
21:
How can I load items to the control

With RadialMenu1
	.BeginUpdate 
	.MinVisibleCount = 3
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.HTMLPicture("remove") = "remove.png"
	.HTMLPicture("refresh") = "refresh.png"
	.HTMLPicture("preview") = "preview.png"
	.HTMLPicture("search") = "search.png"
	With .Items
		With .Add("Search","search").Items
			.ToString = "Search A,Search B,Search C"
		End With
		.Add "Refresh","refresh"
		.Add "Preview","preview"
		.Add "Remove","remove"
	End With
	.Expanded = True
	.EndUpdate 
End With
20:
How do I get the version of the control I am running

With RadialMenu1
	Debug.Print( "Version:" )
	Debug.Print( .Version )
End With
19:
How do I select an item

' SelectItem event - Notifies once the user selects an item.
Private Sub RadialMenu1_SelectItem(ByVal Item As Object)
	' SelectedIndex(3) =  Item.Index
	With RadialMenu1
		Debug.Print( "selection changed" )
	End With
End Sub

With RadialMenu1
	.AllowToggleExpand = False
	.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.SelectedIndex(3) = 0
End With
18:
How can I change the item's foreground color (sample 3)

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.MinVisibleCount = 6
	.Font.Size = "14.25"
	With .Items
		With .Add("Item 1")
			.Name = "<fgcolor FF0000>Item</fgcolor> 1"
			With .Items
				.Add "SubItem 1"
				.Add "SubItem 2"
			End With
		End With
		.Add "Item 2"
		.Add "Item 3"
		.Add "Item 4"
		.Add "Item 5"
		.Add "Item 6"
	End With
	.EndUpdate 
End With
17:
How can I change the item's foreground color (sample 2)

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.MinVisibleCount = 6
	.Font.Size = "14.25"
	With .Items
		With .Add("Item 1")
			.ForeColor(1) = RGB(255,0,0)
			With .Items
				.Add "SubItem 1"
				.Add "SubItem 2"
			End With
		End With
		.Add "Item 2"
		.Add "Item 3"
		.Add "Item 4"
		.Add "Item 5"
		.Add "Item 6"
	End With
	.EndUpdate 
End With
16:
How can I change the item's foreground color (sample 1)

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.MinVisibleCount = 6
	.Font.Size = "14.25"
	.ForeColor = RGB(255,0,0)
	With .Items
		With .Add("Item 1").Items
			.Add "SubItem 1"
			.Add "SubItem 2"
		End With
		.Add "Item 2"
		.Add "Item 3"
		.Add "Item 4"
		.Add "Item 5"
		.Add "Item 6"
	End With
	.EndUpdate 
End With
15:
How can I add new items / childrend to the control (method 2)

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	With .Items
		With .Add("Item 1").Items
			.Add "SubItem 1"
			.Add "SubItem 2"
		End With
		.Add "Item 2"
		.Add "Item 3"
		.Add "Item 4"
		.Add "Item 5"
		.Add "Item 6"
		.Add "Item 7"
		.Add "Item 8"
	End With
	.EndUpdate 
End With
14:
How can I add new items / childrend to the control (method 1)

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.ToString = "Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.EndUpdate 
End With
13:
How do I enlarge the font (method 2)

With RadialMenu1
	.BeginUpdate 
	.AllowToggleExpand = False
	.MinVisibleCount = 4
	.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Items.Item(0).Name = "<font ;14>Item 1"
	.EndUpdate 
End With
12:
How do I enlarge the font (method 1)

With RadialMenu1
	.BeginUpdate 
	.AllowToggleExpand = False
	.MinVisibleCount = 4
	.ToString = "Item 1,Item 2,Item 3,Item 4"
	.Font.Size = "14.25"
	.EndUpdate 
End With
11:
How can I expand the control (method 2)
With RadialMenu1
	.AllowToggleExpand = False
End With
10:
How can I expand the control (method 1)
With RadialMenu1
	.Expanded = True
End With
9:
By default, the control displays 8-pies. How can I change that

With RadialMenu1
	.Expanded = True
	.MinVisibleCount = 3
End With
8:
How can I prevents expanding / collapsing the radial menu
With RadialMenu1
	.BeginUpdate 
	.AllowToggleExpand = False
	.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.Caption(0) = "Cant expand/collapse the radial menu"
	.Caption(3) = 0
	.Caption(4) = "width-twidth"
	.Caption(5) = "height-theight"
	.EndUpdate 
End With
7:
How can I prevent flickering the item, when user selects it
With RadialMenu1
	.AllowToggleExpand = False
	.ToString = "<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.Items.Item(0).BrowseType = -1 ' &Hfffffffc Or BrowseItemEnum.exBrowseItemCustom Or BrowseItemEnum.exBrowseItemChild
End With
6:
How do I highlight the sub-item zone when cursor hovers it (method 2)

With RadialMenu1
	.Expanded = True
	.RadialLineSize(11) = .FormatABC(.SubItemsSize)
	.RadialLineColor(11) = &H8000000d
	.RadialLineAlpha(11) = 64
	With .Items
		.Add "Item A"
		.Add "Item B"
		.Add "Item C"
	End With
End With
5:
How do I highlight the sub-item zone when cursor hovers it (method 1)

With RadialMenu1
	.Expanded = True
	.RadialLineSize(11) = 0
	.RadialLineSize(10) = -1
	.RadialLineColor(10) = &H8000000d
	.RadialLineAlpha(10) = 64
	With .Items
		.Add "Item A"
		.Add "Item B"
		.Add "Item C"
	End With
End With
4:
Is it possible to highlight the entire item when cursor hovers the item

With RadialMenu1
	.Expanded = True
	.RadialLineSize(11) = -1
	.RadialLineColor(11) = &H8000000d
	.RadialLineAlpha(11) = 64
	With .Items
		.Add "Item A"
		.Add "Item B"
		.Add "Item C"
	End With
End With
3:
How can I hide the hot line when hovering the cursor
With RadialMenu1
	.AllowToggleExpand = False
	.RadialLineSize(11) = 0
	With .Items
		.Add "Item A"
		.Add "Item B"
		.Add "Item C"
	End With
End With
2:
How can I hide the control's shadow

With RadialMenu1
	.Expanded = True
	.ShadowColor = -1
End With
1:
How do I change the control's background color
With RadialMenu1
	.BackColor = RGB(240,240,249)
End With