Imports Infragistics.Win.UltraWinStatusBar ... Private Sub WinStatusBarQuickTourCursorPositionPanel_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' 新しいパネルを作成します Dim myPanel As New UltraStatusPanel() ' パネルのスタイルを設定します myPanel.Style = PanelStyle.CursorPosition ' デフォルトのテキストを設定します myPanel.Text = "CursorPosition" ' エレメントにパネルを追加します Me.UltraStatusBar1.Panels.Add(myPanel) ' 文字の位置が反映されるコントロールを指定します Me.UltraStatusBar1.Panels(0).Control = Me.UltraTextEditor1 End Sub