If _UserGroup Like "*计划员*" = false andalso _UserGroup Like "*仓库*" = false Then Dim tab As WinForm.TabControl = e.Form.Controls("过程业务操作") tab.TabPages("计划确认").Visible = FalseEnd If