Imports Infragistics.Win.UltraWinStatusBar ... Private Sub Set_the_Panel_Style_to_CursorPosition_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' Create an instance of a TextBox Dim myTextBox As New TextBox Me.Controls.Add(myTextBox) ' Create new panel Dim myPanel As New UltraStatusPanel() ' Set the style for the panel myPanel.Style = PanelStyle.CursorPosition ' Set the default text myPanel.Text = "CursorPosition" ' Add the panel to the element Me.UltraStatusBar1.Panels.Add(myPanel) ' Designate the control whose character position will be reflected Me.UltraStatusBar1.Panels(0).Control = myTextBox End Sub