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