Imports Infragistics.Win.UltraWinStatusBar ... Private Sub Set_the_Panel_Style_to_ControlContainer_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' Create an instance of a TrackBar Dim myTrackBar As New TrackBar() Me.Controls.Add(myTrackBar) ' Create new panel Dim myPanel As New UltraStatusPanel() ' Set the style for the panel myPanel.Style = PanelStyle.ControlContainer ' Assign the desired control to the Control property myPanel.Control = myTrackBar ' Add the panel to the element Me.UltraStatusBar1.Panels.Add(myPanel) End Sub