[求助]：求助解决VBA创建菜单问题！急！急！急！

一生有你

我初学VBA，编写了一组创建菜单的代码，可是运行老是有问题，实现不了，请高手提示一下用VBA创建菜单需要注意哪些问题，还请给一些程序让我参考一下吧！非常感谢！————急切学习

lsjjm

1. 请注意不要发重复内容的贴子!
2. 请参考:
Sub Menu2 ()
  Dim CurrentMG as AcadMenuGroup
  Set CurrentMG = ThisDrawing.Application.MenuGoups.Item(0)
  Dim newMenu as AcadPopupMenu
  Set newMenu = CurrentMG.Menus.Add("My" + Chr(Asc ("&")) + "stMenu")
  Dim newMenuItem as AcadPopupMenuItem
  Dim openMacro as String
  openMacro= Chr(3) + Chr(3) +Chr(95) + "open" + chr(32)
  Set newMenuItem = newMenu.AddMenuItem(newMenu.Count +1, Chr(Asc ("&")) +"Open", openMacro)
  newMenu.InsertinMenuBar(ThisDrawing.Application.MenuBar.Count +1)
End Sub

一生有你

我是初学，我以后不重复发帖子了！
你的程序很好！对于创建菜单我入门了点！