怎样用select case 来做权限控制

Question

Private Sub MDIForm_Load()
if status <> "管理员"
    sysusermange.Visible = False   
end if
end sub这句测试通过
如用select case 怎么来做,
管理员,一级会员,二级会员
我这样做无效
 Select Case status
   Case status = "一级会员"
    sysusermange.Visible = False 
   
  Case status = "二级会员"
    sysusermange.Visible = False 
    catin.Visible = False    End Select
             

Answer 1

Select Case status
   Case  "一级会员"
    sysusermange.Visible = False 
   
  Case  "二级会员"
    sysusermange.Visible = False 
    catin.Visible = False    End Select