主题：如何做一个没有菜单的程序

在AfterOpenProject事件中加上：

For Each t As RibbonMenu.Tab In RibbonTabs
    t.Visible = False
Next

这样打开项目就没有菜单了。

如果你想开发者进去之后，还是有菜单，可以改为：

If user.Type <> UserTypeEnum.Developer Then
    For Each t As RibbonMenu.Tab In RibbonTabs
        t.Visible = False
    Next
End If