哦,看错了,你这样改
Dim pg As WinForm.TabControl = e.Form.Controls("TabControl1")
If user.Name = "开发者" Then
pg.Visible = True '隐藏操作目录树页面
Else
pg.Visible = False
End If