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