Imports Infragistics.Win.UltraWinStatusBar ... ' Create an instance of a TextBox Private myTextBox As New TextBox ... Private Sub Set_the_Panel_Style_to_StateButton_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.Controls.Add(myTextBox) ' Create new panel Dim myPanel As New UltraStatusPanel() ' Set the style for the panel myPanel.Style = PanelStyle.StateButton ' Set the default text myPanel.Text = "StateButton" ' Add the panel to the element Me.UltraStatusBar1.Panels.Add(myPanel) End Sub