Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
Dim tc As TabControl = CType(sender, TabControl)
Dim i As Int32
i = 1 '假设第二页
If tc.SelectedIndex = i Then
tc.TabPages(i).Visible = False
End If
End Sub