Private Sub tab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabStrip1.SelectedIndexChange Label1.Text = TabStrip1.SelectedIndex Select Case TabStrip1.SelectedIndex Case 0 Server.Transfer("SurgeonMenu.aspx") Case 1 Server.Transfer("YTD_Activity.aspx") Case 2 Server.Transfer("DeptGrid.aspx") Case 3 Server.Transfer("Schedule.aspx") Case 4 Server.Transfer("docLogin.aspx") End Select End Sub