Imports Infragistics.Win.UltraWinStatusBar ... Private Sub WinStatusBarQuickTourControlContainerPanel_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) ' 新しいパネルを作成します Dim myPanel As New UltraStatusPanel() ' パネルのスタイルを設定します myPanel.Style = PanelStyle.ControlContainer ' 希望のコントロールを Control プロパティに割り当てます myPanel.Control = TrackBar1 ' エレメントにパネルを追加します Me.UltraStatusBar1.Panels.Add(myPanel) End Sub