Imports Infragistics.Win.UltraWinToolbars
...
Private Sub AddaTextBoxtoaToolbar_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim TextTool As New TextBoxTool("ttool")
Me.UltraToolbarsManager1.Tools.Add(TextTool)
Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(TextTool)
End Sub