主题：求教：如何实现选择不同的页签标题，执行不同的代码？

求教：一下代码已经实现了不同页签标题选择后运行不同的代码。

求完善：当离开页签标题从新增员工离开之后  关闭设备或者进行提示

Dim tb1 As WinForm.TabControl = e.Form.Controls("TabControl1")

If tb1.SelectedPage.Name= "新增员工" Then

    Try

        Dim lb1 As WinForm.Label = e.Form.Controls("Label1")

        Dim iRetUSB As Integer

        For iPort As Integer = 1001 To 1016

            iRetUSB = InitComm(iPort)

            If iRetUSB = 1 Then

                Exit For

            End If

        Next

        If iRetUSB = 1 Then

            lb1.Text = "电脑与身份证阅读器连接成功,可以读取身份证信息!"

            e.Form.TimerEnabled = True

        Else

            lb1.Text = "设备连接失败,请检查设备连接线!"

            e.Form.TimerEnabled = False '停止计时器,使得自动读取功能失效

            e.Form.Controls("Button1").Enabled = False '禁用读卡按钮

            e.Form.Controls("CheckBox1").Enabled = False '禁用自动读取复选框

        End If

    Catch ex As Exception

        MessageBox.Show(ex.ToString)

    End Try

End If

If tb1.SelectedPage.Name= "验证登记" Then

    Tables("身份证校验").AddNew()

    Try

        CloseComm() '断开设备

    Catch ex As Exception

        MessageBox.Show(ex.ToString)

    End Try

End If

If tb1.SelectedPage.Name= "来访登记" Then

    Try

        Dim lb1 As WinForm.Label = e.Form.Controls("Label1")

        Dim iRetUSB As Integer

        For iPort As Integer = 1001 To 1016

            iRetUSB = InitComm(iPort)

            If iRetUSB = 1 Then

                Exit For

            End If

        Next

        If iRetUSB = 1 Then

            lb1.Text = "电脑与身份证阅读器连接成功,可以读取身份证信息!"

            e.Form.TimerEnabled = True

        Else

            lb1.Text = "设备连接失败,请检查设备连接线!"

            e.Form.TimerEnabled = False '停止计时器,使得自动读取功能失效

            e.Form.Controls("Button1").Enabled = False '禁用读卡按钮

            e.Form.Controls("CheckBox1").Enabled = False '禁用自动读取复选框

        End If

    Catch ex As Exception

        MessageBox.Show(ex.ToString)

    End Try

End If

If tb1.SelectedPage.Name= "记录预览" Then

    Try

        CloseComm() '断开设备

    Catch ex As Exception

        MessageBox.Show(ex.ToString)

    End Try

End If