Imports Infragistics.Win.UltraWinToolbars ... Private Sub Add_a_TextBox_to_a_Toolbar_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