Private Sub btnFirst_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnFirst.Click ' 最初のタブを選択します。 Me.UltraTabControl1.SelectedTab = Me.UltraTabControl1.Tabs(0) End Sub Private Sub btnLast_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnLast.Click ' 最後のタブを選択します。 Me.UltraTabControl1.SelectedTab = _ Me.UltraTabControl1.Tabs(UltraTabControl1.Tabs.Count - 1) End Sub Private Sub btnPrevious_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnPrevious.Click ' 前のタブを選択します。 ' 最初のタブが選択されていない場合 If Me.UltraTabControl1.SelectedTab.Index > 0 Then ' 前のタブのインデックスを探して選択します。 Me.UltraTabControl1.SelectedTab = _ Me.UltraTabControl1.Tabs(Me.UltraTabControl1.SelectedTab.Index - 1) End If End Sub Private Sub btnNext_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnNext.Click ' 次のタブを選択します。 ' 最後のタブが選択されていない場合 If Me.UltraTabControl1.SelectedTab.Index < (Me.UltraTabControl1.Tabs.Count - 1) Then ' 次のタブのインデックスを探して選択します。 Me.UltraTabControl1.SelectedTab = _ Me.UltraTabControl1.Tabs(Me.UltraTabControl1.SelectedTab.Index + 1) End If End Sub