Imports Infragistics.Win.UltraWinStatusBar
...
Private Sub WinStatusBarQuickTourStateButtonPanel_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' 新しいパネルを作成します。
Dim myPanel As New UltraStatusPanel()
' パネルのスタイルを設定します。
myPanel.Style = PanelStyle.StateButton
' デフォルト テキストを設定します。
myPanel.Text = "StateButton"
' パネルをエレメントに追加します。
Me.UltraStatusBar1.Panels.Add(myPanel)
End Sub