老兄,看不懂,请帮我在这个基础上改一下把
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
Case "任务总目录"
tab.SelectedIndex = 0
Case "任务进度条"
tab.SelectedIndex = 1
Case "写手客户信息"
tab.SelectedIndex = 2
End Select