Private Sub btnToolbar_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnToolbar.Click ' False を返します。 MessageBox.Show(Me.UltraToolbarsManager1.Toolbars(1).Tools(0).IsRootTool) End Sub Private Sub btnTools_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnTools.Click ' True を返します。 MessageBox.Show(Me.UltraToolbarsManager1.Tools(0).IsRootTool) End Sub