主题：FileManager 调用与功能屏蔽问题

你的代码问题，应该是：

Select Case user.name
    Case "开发者","管理员"
    Case "XXX"
        Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
        fm.DeleteCommand.Enabled = False
        fm.ClearCommand.Enabled = False
    Case Else
        Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
        fm.DeleteCommand.Enabled = False
        fm.ClearCommand.Enabled = False
        fm.AddCommand.Enabled = False
End Select