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