主题：TabControl1 页面区分

Dim bar As WinForm.TabControl = e.sender
Select Case bar.SelectedPage.Text
    Case "常用工具"
        Select Case e.Sender.Name
            Case "刷新工具"
                'For Each c As Object In Forms("菜单_工作台").controls("TabControl1").TabPages(4).children
                'Forms("菜单_工作台").RemoveControl(c.name)
                'Next
            Case "新增工具"
                MessageBox.Show("正在开发",Vars("昵称"))
            Case Else
                'MessageBox.Show("操作的是:" & e.Sender.Name,Vars("昵称"))
                Dim dr As DataRow = DataTables("网络_常用工具").SQLFind("标题='" & e.Sender.Name & "'")
                If dr("网页") < > Nothing Then
                    Dim Proc As New Process '定义一个新的Process
                    Proc.File = dr("网页") '指定要打开的网页地址
                    Proc.Start()
                End If
        End Select
End Select

Dim bar As WinForm.TabControl = e.form.controls(TabControl1)

Select Case bar.SelectedPage.Text
    Case "常用工具"
        Select Case e.Sender.Name
                           
            Case "新增工具"
                'MessageBox.Show("正在开发",Vars("昵称"))
            Case Else                
                Dim dr As DataRow = Vars("dt").SQLFind("标题='" & e.Sender.Name & "'")
                If dr("网页") < > Nothing Then
                    Dim Proc As New Process '定义一个新的Process
                    Proc.File = dr("网页") '指定要打开的网页地址
                    Proc.Start()
                Else
                    MessageBox.Show(e.Sender.Name &"地址不存在",Vars("昵称"))
                End If
        End Select

http://www.foxtable.com/webhelp/topics/2911.htm，认真看看示例三