Private Sub MDIForm_Load()
   '根据用户身份决定隐藏可执行管理操作的菜单
   If CurrentUserStatus <> "管理员" Then
        mnuEditUser.Visible =False '隐藏住户管理菜单
        mnuSysuser.Visible = False '隐藏系统用户管理菜单
        mnuEditBerth.Visible = False '隐藏停车场车位管理菜单
        mnuEditBuild.Visible = False '隐藏楼盘数据管理菜单
        mnuCharge.Visible = False '隐藏物业管理收费菜单
   End If
End Sub

调试时，Private Sub MDIForm_Load()显示为黄色，
求解