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