Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
	Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
		' 定義したツール カテゴリのすべての配列を取得します各カテゴリのツールの
		' 配列を取得します
		Dim toolCategories As String() = Me.UltraToolbarsManager1.GetCategories()
		Dim category As String
		For Each category In toolCategories
			Debug.WriteLine("Processing category '" + category + "'")
			Dim categoryTools As ToolBase() = Me.UltraToolbarsManager1.GetCategoryTools(category)
			Dim tool As ToolBase
			For Each tool In categoryTools
				Debug.WriteLine("    Processing tool '" + tool.Key + "'")
			Next
		Next
	End Sub