主题：页签

点击事件

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

Select Case e.Link.Text
    Case "增加"
        tab.SelectedIndex = 0
    Case "移动"
        tab.SelectedIndex = 1
    Case "删除"
        tab.SelectedIndex = 2
    Case "主页"
        tab.SelectedIndex = 3
End Select