MenuItem 对象

菜单对象，包含了对菜单的基本操作支持。该对象与Menu对象一起完成了对自定义菜单的支持操作。
传统的菜单分为很多级的，主要作用是为了划分不同命令类别等，如果你没有多级菜单，那么只要用Menu对象即可完成操作，如果有多级菜单，那么必须要用此对象来进行扩充。

对象标识 "Stock.MenuItem"

属性

Count            菜单项个数

方法   

Create           创建一个子菜单，必需要首先调用该函数来完成创建工作，否则该对象的其他函数不起作用。该函数成功返回1，否则返回0

AddMenu          在指定位置添加一个菜单

AddPopupMenu     在指定位置添加一个子菜单

CheckMenuItem    将指定命令ID菜单项打上小勾

GetMenuState     如果指定命令的菜单被小勾选中，那么返回1，否则返回0

GetSafeHmenu     返回该菜单资源的句柄

我在Application.Start中加入以下代码

       dim yy
        set yy=CreateObject("Stock.MenuItem")
        yy.Create
        Call yy.AddMenu(1, 1, "新的世界")

结果什么都没有，版主能抽空指点下吗?

请参考Global模块里的部分例子