--
简单的比如:
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
tpb.Pages("基本信息维护").visible = (user.name = "张三")
tpb.Pages("制度管理").Links("公司制度").visible = (user.name = "张三")
复杂一点的可以考虑做授权表,记录哪个用户使用哪个任务,然后根据用户动态生成任务栏:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=179828&skin=0