TabControl多页面窗体用法（vb2010）

 环境：vb2010     有2个窗体  分别为form1   form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '//定义变量，记录窗体是否已经打开
        Dim ls_open As Boolean = False

        '//遍历TabPage页，查看页面是否已经打开 	
        For Each a As TabPage In TabControl1.TabPages
            If a.Name = "Tab_form2" Then
                ls_open = True                                              '如果查找到指定的页面
                Me.TabControl1.SelectedTab = a                              '设置选中当前页
            End If
        Next
        '//如果窗体没有打开，那么实例化并打开窗体	
        If ls_open = False Then
            Dim NewTabPage1 As New TabPage                                  '//实例化一个tabpage页
            NewTabPage1.Text = "form2窗体"                                  '//在tabpage页显示的页text内容
            NewTabPage1.Name = "Tab