Imports Infragistics.Win.UltraWinStatusBar ... Private Sub Set_the_Panel_Style_to_Text_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' Create new panel Dim myPanel As New UltraStatusPanel() ' Set the style for the panel myPanel.Style = PanelStyle.Text ' Set the default text myPanel.Text = "This is My UltraStatusBar Text Panel" ' Add the panel to the element Me.UltraStatusBar1.Panels.Add(myPanel) End Sub