Imports Infragistics.Win.UltraWinToolbars ... Private Sub PreventingCreationofMultipleToolInstances_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' ツールを作成します。 Dim button1 As New ButtonTool("button1") ' ツールをツール コレクションに追加します。 Me.UltraToolbarsManager1.Tools.Add(button1) ' このツールの複数インスタンスを許可します。 button1.SharedProps.AllowMultipleInstances = True ' 1 つ目のインスタンスが作成されます。 Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(button1) ' 2 つ目のインスタンスが作成されます。 Me.UltraToolbarsManager1.Toolbars(1).Tools.Add(button1) End Sub