怎样用select case 来做权限控制解决思路

怎样用select case 来做权限控制
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
                         


[解决办法]
Select Case status
Case "一级会员 "
sysusermange.Visible = False

Case "二级会员 "
sysusermange.Visible = False
catin.Visible = False

End Select