Imports Infragistics.Win.UltraWinToolbars ... Private Sub Add_a_StateButton_Tool_to_a_Toolbar_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim statebutton As New StateButtonTool("statebutton") ' Adds the tool to the Toolbar Manager's Tools collection Me.UltraToolbarsManager1.Tools.Add(statebutton) Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(statebutton) statebutton.SharedProps.DisplayStyle = ToolDisplayStyle.TextOnlyAlways statebutton.SharedProps.Caption = "Underline" End Sub