[求助]新建菜单，添加新的菜单项如何显示窗体

panwei5301

我要新建个菜单，添加新的菜单项，点击菜单项后出现已经做好的窗体

Public Sub addmenu()
'获得当前的菜单组
'On Error Resume Next
Dim currmenugroup As AcadMenuGroup
Set currmenugroup = ThisDrawing.Application.MenuGroups.Item(0)
'创建菜单
Dim newmenu As AcadPopupMenu
Set newmenu = currmenugroup.Menus.Add("机械样本" & Chr(Asc("&")) & "U")
'添加菜单项
Dim menuitem As AcadPopupMenuItem
Set menuitem = newmenu.AddMenuItem(newmenu.Count + 1, Chr(Asc("&")) & "联系方式", "_VBARUN 模块1.lianxi01")
menuitem.HelpString = "给出联系方式！"
newmenu.InsertInMenuBar ThisDrawing.Application.MenuBar.Count + 1
End Sub

红色处 lianxi01 是模块1中写的 显示窗体的 宏 

红色处我不知道怎么写，请教大虾们

还有，能不能我手动在cad命令栏键入特定的字母后就可以调出窗体来，就像cad本身的调出标准件库那样，在命令行键入单词后就可以调出库！！

robbin840311

请参考http://blog.sina.com.cn/s/blog_48ff6e140100bddp.html

专门为你写的一篇文章。

panwei5301

非常感谢！！！，我要好好揣摩揣摩！！！！非常感谢您！！！！