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

With AxRadialMenu1
	.BeginUpdate()
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_HTMLPicture("arrow","stock_mail_filters_apply.png")
	.set_HTMLPicture("settings","settings.png")
	.set_HTMLPicture("hard","download.png")
	.set_HTMLPicture("favorites","favorites.png")
	.set_HTMLPicture("remove","remove.png")
	.set_HTMLPicture("refresh","refresh.png")
	.set_HTMLPicture("synchronize","synchronize.png")
	.set_HTMLPicture("preview","preview.png")
	.set_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
	.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated270)
	.BackgroundPicture = "Background\frontc.png"
	.GetOcx().SubItemsBackColor = -1
	.SubItemsSize = "18 * dpi"
	.EndUpdate()
	.Float = True
End With
86:
How do I add a radial-slider control

With AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.InflateCustom = .InflateItems
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
	With .Items
		With .Add("Slider")
			.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
			.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
			.BrowseCustom(EXRADIALMENULib.RadialCustomPropertyEnum.exRadialCustomSliderValue) = 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 AxRadialMenu1
	.BeginUpdate()
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.Expanded = True
	.InflateCustom = "-4 * dpi"
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,0)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,128)
	.CustomPicture = "Background\frame.png"
	With .Root
		.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
		.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
		.BrowseCustom(EXRADIALMENULib.RadialCustomPropertyEnum.exRadialCustomSliderValue) = 25
	End With
	.Refresh()
	.EndUpdate()
End With
84:
How can I programatically browses for a new item

With AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.InflateCustom = .InflateItems
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
	With .Items
		With .Add("Slider")
			.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
			.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
		End With
	End With
	.BrowseItem = .Items.Item("Slider")
End With
83:
How can I display the items rotated

With AxRadialMenu1
	.BeginUpdate()
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_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)"
	.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
	.set_DisplayCenter(EXRADIALMENULib.RadialItemsEnum.exRadialItems,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 AxRadialMenu1
	.BeginUpdate()
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_HTMLPicture("arrow","arrowu.png")
	.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
	.set_DisplayCenterArrow(EXRADIALMENULib.RadialItemsEnum.exRadialItems,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 AxRadialMenu1
	.BeginUpdate()
	.Expanded = True
	.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
	.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 AxRadialMenu1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent) Handles AxRadialMenu1.MouseMoveEvent
	With AxRadialMenu1
		Debug.Print( "ParentOnPoint " )
		Debug.Print( .get_ParentOnPoint(-1,-1) )
	End With
End Sub

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

With AxRadialMenu1
	.BeginUpdate()
	.AllowToggleExpand = False
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_ItemsImageHeight(EXRADIALMENULib.RadialItemsEnum.exRadialItems,"64*dpi")
	.set_ItemsImageWidth(EXRADIALMENULib.RadialItemsEnum.exRadialItems,"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 AxRadialMenu1
	.BeginUpdate()
	.AllowToggleExpand = False
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_HTMLPicture("logo","settings.png")
	.ParentSize = "96 * dpi"
	.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
	.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
	.set_ParentCaption(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"<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 AxRadialMenu1
	.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(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems) = RGB(240,240,240)
	.set_DisplayCenter(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0.85)
	.EndUpdate()
End With
76:
How can I disable browsing the items, or prevent displaying its children
With AxRadialMenu1
	.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 AxRadialMenu1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent) Handles AxRadialMenu1.MouseMoveEvent
	With AxRadialMenu1
		Debug.Print( "Full-Item: " )
		Debug.Print( .get_ItemFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1).get_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionBackColor) )
		Debug.Print( "Item: " )
		Debug.Print( .get_ItemFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialItems,-1,-1).get_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionBackColor) )
		Debug.Print( "SubItem: " )
		Debug.Print( .get_ItemFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,-1,-1).get_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionForeColor) )
	End With
End Sub

With AxRadialMenu1
	.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 AxRadialMenu1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent) Handles AxRadialMenu1.MouseMoveEvent
	With AxRadialMenu1
		Debug.Print( "Full-Index: " )
		Debug.Print( .get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1) )
		Debug.Print( "Index: " )
		Debug.Print( .get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialItems,-1,-1) )
		Debug.Print( "Sub-Index: " )
		Debug.Print( .get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,-1,-1) )
	End With
End Sub

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

' SelectItem event - Notifies once the user selects an item.
Private Sub AxRadialMenu1_SelectItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent) Handles AxRadialMenu1.SelectItem
	' SelectedIndex(3) = Item.Index
End Sub

With AxRadialMenu1
	.BeginUpdate()
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
	.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.EndUpdate()
End With
72:
How can I use the sub-items zone only

With AxRadialMenu1
	.BeginUpdate()
	.AllowToggleExpand = False
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_HTMLPicture("logo","settings.png")
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
	.SubItemsSize = "64 * dpi"
	.ParentSize = "value - 66 * dpi"
	.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
	.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
	.set_ParentCaption(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"<font ;14><c>System Settings</font><br><c>Surround")
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-2147483635)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,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 AxRadialMenu1
	.BeginUpdate()
	.Expanded = True
	.DisplayAngle = -7.5
	.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
	.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
	.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 AxRadialMenu1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxRadialMenu1.RClick
	With AxRadialMenu1
		.BrowseItem = .BrowseItem.Parent
	End With
End Sub

With AxRadialMenu1
	.Expanded = True
	.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
	With .Items
		With .Add("Volume")
			.Caption(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "slider"
			.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
			.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
		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 AxRadialMenu1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxRadialMenu1.RClick
	With AxRadialMenu1
		.GoBack()
	End With
End Sub

With AxRadialMenu1
	.Expanded = True
	.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
	With .Items
		With .Add("Volume")
			.Caption(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "slider"
			.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
			.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
		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 AxRadialMenu1
	.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"
	.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-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 AxRadialMenu1_SelectItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent) Handles AxRadialMenu1.SelectItem
	' PointerIndex = Item.Index
	With AxRadialMenu1
		.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,.PointerIndex)
	End With
End Sub

With AxRadialMenu1
	.BeginUpdate()
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.PointerPicture = "pointer.png"
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
	.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
	.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
	.AllowHotPointer = False
	.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.ParentSize = "36*dpi"
	.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
	.Expanded = True
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.PointerIndex = 0
	.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,.PointerIndex)
	.EndUpdate()
End With
66:
How can I use the pointer (hot sample)

With AxRadialMenu1
	.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
	.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,128)
	.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
	.ParentSize = "36*dpi"
	.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-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 AxRadialMenu1
	.BeginUpdate()
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.BackgroundPicture = "Background\fronte.png"
	.ForeColor = RGB(255,255,255)
	.Expanded = True
	.ParentSize = "48 * dpi"
	.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
	.set_DisplayCenter(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0.23)
	.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	.GetOcx().ParentBackColor = -1
	.ExcludeParentFromItems = True
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,0)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,128)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,128)
	.EndUpdate()
End With
64:
Can I display the picture on the parent zone, a bit larger

With AxRadialMenu1
	.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 AxRadialMenu1
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
	.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 = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
		.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
	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 AxRadialMenu1
	.Expanded = True
	.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
	.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 = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
		.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
	End With
	.BrowseItem = .Items.Item("Item 2")
End With
61:
How do I prevent expanding / collapsing the radial menu
With AxRadialMenu1
	.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 = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
		.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
	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 AxRadialMenu1_BrowseItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_BrowseItemEvent) Handles AxRadialMenu1.BrowseItem
	With AxRadialMenu1
		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 AxRadialMenu1_SelectParent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxRadialMenu1.SelectParent
	With AxRadialMenu1
		Debug.Print( "Current State: " )
		Debug.Print( .State )
	End With
End Sub

With AxRadialMenu1
	.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 = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
		.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
	End With
	.set_ParentImage(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuCollapsed,"format_font_size_less.png")
	.set_ParentImage(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuExpandedNoItems,"fileview_text.png")
	.set_ParentImage(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuExpandedRootItem,"edit_undo.png")
End With
59:
Is it possible to assign a different picture on the parent zone (center ring)

With AxRadialMenu1
	.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 AxRadialMenu1
	.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 AxRadialMenu1
	.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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,0)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,64)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,-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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,0)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,64)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,-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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,64)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,3)
End With
48:
How can I change the border around the items zone ( inner ring )

With AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,3)
End With
47:
How can I change the border around the parent zone ( center ring )

With AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,3)
End With
46:
How can I change the grid lines in the items zone ( inner ring )

With AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,3)
End With
45:
How can I change the border around the slider / custom part of the control

With AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.InflateCustom = .InflateItems
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
	With .Items
		With .Add("Slider")
			.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
			.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
		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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,3)
End With
43:
How can I change the border around the subitems (exRadialSubItemsBorder)

With AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,3)
End With
42:
How can I change the border around the radial menu (exRadialBorder)

With AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
	.InflateItems = "-8*dpi"
	.ItemsBackColor = RGB(240,240,240)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialBorder,0)
	.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialBorder,3)
End With
41:
How can I customize the parent part of the control, the center ring/circle

With AxRadialMenu1
	.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"
	.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"78 * dpi")
	.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"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 AxRadialMenu1
	.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 AxRadialMenu1
	.Expanded = True
	.set_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 AxRadialMenu1
	.set_HTMLPicture("arrow","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEI" & _
"JULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoW" & _
"T8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA==")
	.Expanded = True
	.Items.ToString = "Child(SubChild)"
End With
37:
How can I change the logo image

With AxRadialMenu1
	.set_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 AxRadialMenu1
	.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
	.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 AxRadialMenu1
	.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 AxRadialMenu1
	.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 AxRadialMenu1
	.Expanded = True
	.GetOcx().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 AxRadialMenu1
	.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 AxRadialMenu1
	.AllowToggleExpand = False
	.DisplayAngle = -66
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,.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 AxRadialMenu1
	.BeginUpdate()
	.Expanded = True
	.MinVisibleCount = 6
	.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
	.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is a caption to be displayed on the control's background.")
	.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is an extra caption to be displayed on the control's background.")
	.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2)
	.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,True)
	.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"<img>logo:64</img>")
	.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,4)
	.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width-twidth")
	.EndUpdate()
End With
29:
What events the control supports
' Event event - Notifies the application once the control fires an event.
Private Sub AxRadialMenu1_Event(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_EventEvent) Handles AxRadialMenu1.Event
	With AxRadialMenu1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

With AxRadialMenu1
	.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 AxRadialMenu1
	.BeginUpdate()
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_HTMLPicture("relative","settings.png")
	.set_HTMLPicture("absolute","C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png")
	.set_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(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "settings.png"
		.Add("Aboslute 1","absolute")
		.Add("Aboslute 2","favorites.png")
		.Add("Encoded 1","encoded")
		.Add("Encoded 2").Image(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "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 AxRadialMenu1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent) Handles AxRadialMenu1.MouseMoveEvent
	With AxRadialMenu1
		.ShowToolTip(.FormatABC("`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",.get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1)),"Info",0,"8","8")
	End With
End Sub

With AxRadialMenu1
	.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 AxRadialMenu1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXRADIALMENULib.BackgroundPartEnum.exToolTipAppearance,16777216)
	.DisplayAngle = -45
	.Expanded = True
	With .Items
		.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
		.Add("Item 1").Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "This is a bit of text that shown when user <b>hovers</b> the item"
		With .Add("Item 2")
			.Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "This is a bit of text that shown when user hovers the item"
			.Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "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 AxRadialMenu1
	.DisplayAngle = -45
	.Expanded = True
	With .Items
		.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
		.Add("Item 1").Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "This is a bit of text that shown when user <b>hovers</b> the item"
		With .Add("Item 2")
			.Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "This is a bit of text that shown when user hovers the item"
			.Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "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 AxRadialMenu1
	.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")
	.set_HTMLPicture("icon","download.ico")
	With .Items
		.ToString = "Icon 0[img=0]"
		.Add("Icon 1",1)
		.Add("Icon 2","print.ico")
		.Add("Icon 3").Image(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "icon"
	End With
	.EndUpdate()
End With
23:
How can I load items /images to the control, in sub-items zone

With AxRadialMenu1
	.BeginUpdate()
	.AllowToggleExpand = False
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_HTMLPicture("logo","settings.png")
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
	.SubItemsSize = "64 * dpi"
	.ParentSize = "value - 66 * dpi"
	.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
	.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
	.set_ParentCaption(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"<font ;14><c>System Settings</font><br><c>Surround")
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-2147483635)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,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 AxRadialMenu1
	.BeginUpdate()
	.Expanded = True
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_HTMLPicture("arrow","arrow.png")
	.SubItemsBackColor = RGB(190,190,190)
	.ShadowColor = .SubItemsBackColor
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-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 AxRadialMenu1
	.BeginUpdate()
	.MinVisibleCount = 3
	.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	.set_HTMLPicture("remove","remove.png")
	.set_HTMLPicture("refresh","refresh.png")
	.set_HTMLPicture("preview","preview.png")
	.set_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 AxRadialMenu1
	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 AxRadialMenu1_SelectItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent) Handles AxRadialMenu1.SelectItem
	' SelectedIndex(3) =  Item.Index
	With AxRadialMenu1
		Debug.Print( "selection changed" )
	End With
End Sub

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

With AxRadialMenu1
	.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 AxRadialMenu1
	.BeginUpdate()
	.Expanded = True
	.MinVisibleCount = 6
	.Font.Size = "14.25"
	With .Items
		With .Add("Item 1")
			.ForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = 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 AxRadialMenu1
	.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 AxRadialMenu1
	.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 AxRadialMenu1
	.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 AxRadialMenu1
	.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 AxRadialMenu1
	.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 AxRadialMenu1
	.AllowToggleExpand = False
End With
10:
How can I expand the control (method 1)
With AxRadialMenu1
	.Expanded = True
End With
9:
By default, the control displays 8-pies. How can I change that

With AxRadialMenu1
	.Expanded = True
	.MinVisibleCount = 3
End With
8:
How can I prevents expanding / collapsing the radial menu
With AxRadialMenu1
	.BeginUpdate()
	.AllowToggleExpand = False
	.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
	.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"Cant expand/collapse the radial menu")
	.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,0)
	.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width-twidth")
	.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionTop,"height-theight")
	.EndUpdate()
End With
7:
How can I prevent flickering the item, when user selects it
With AxRadialMenu1
	.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 = &Hfffffffc Or EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom Or EXRADIALMENULib.BrowseItemEnum.exBrowseItemChild
End With
6:
How do I highlight the sub-item zone when cursor hovers it (method 2)

With AxRadialMenu1
	.Expanded = True
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,.FormatABC(.SubItemsSize))
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-2147483635)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,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 AxRadialMenu1
	.Expanded = True
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-2147483635)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,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 AxRadialMenu1
	.Expanded = True
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
	.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-2147483635)
	.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,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 AxRadialMenu1
	.AllowToggleExpand = False
	.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,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 AxRadialMenu1
	.Expanded = True
	.GetOcx().ShadowColor = -1
End With
1:
How do I change the control's background color
With AxRadialMenu1
	.BackColor = RGB(240,240,249)
End With