Public Class Form1
Private Sub Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _Index As Integer = TabControl1.SelectedIndex
If TabControl1.TabCount > TabControl1.SelectedIndex + 1 Then
TabControl1.SelectedIndex = TabControl1.SelectedIndex + 1
End If
End Sub
Private Sub Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim _Index As Integer = TabControl1.SelectedIndex
If TabControl1.SelectedIndex <> 0 Then
TabControl1.SelectedIndex = TabControl1.SelectedIndex - 1
End If
End Sub
End Class