vba菜单加载

我的太阳

我按照下面代码怎么老出现错误

1. Sub Ch6_InsertMenu()    ' 定义当前菜单组的变量
   
2.     Dim currMenuGroup As AcadMenuGroup
   
3.     Set currMenuGroup = ThisDrawing.Application. _
   
4.                                     MenuGroups.Item(0)    ' 创建新菜单
   
5.     Dim newMenu As AcadPopupMenu
   
6.     Set newMenu = currMenuGroup.Menus.Add("TestMenu")    ' 声明表示菜单项的变量
   
7.     Dim newMenuItem As AcadPopupMenuItem
   
8.     Dim openMacro As String    ' 指定宏字符串“ESC ESC _open”的 VB 等价值    ' 并创建菜单项
   
9.    openMacro = Chr(3) + Chr(3) + "_open "
   
10.     Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, _
    
11.         "Open", openMacro)    ' 在菜单栏上显示菜单
    
12.     currMenuGroup.Menus.InsertMenuInMenuBar "TestMenu", ""
    
13. End Sub
    

Sub Ch6_InsertMenu()    ' 定义当前菜单组的变量<br />     Dim currMenuGroup As AcadMenuGroup<br />     Set currMenuGroup = ThisDrawing.Application. _<br />                                     MenuGroups.Item(0)    ' 创建新菜单<br />     Dim newMenu As AcadPopupMenu<br />     Set newMenu = currMenuGroup.Menus.Add("TestMenu")    ' 声明表示菜单项的变量<br />     Dim newMenuItem As AcadPopupMenuItem<br />     Dim openMacro As String    ' 指定宏字符串“ESC ESC _open”的 VB 等价值    ' 并创建菜单项 <br />    openMacro = Chr(3) + Chr(3) + "_open "<br />     Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, _<br />         "Open", openMacro)    ' 在菜单栏上显示菜单<br />     currMenuGroup.Menus.InsertMenuInMenuBar "TestMenu", ""<br /> End Sub<br />

并且不显示新菜单？？怎么回事