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