[求助]：在VB里开发,无何连接菜单和窗体?

fyxzi

我的一短代码,在VBA IDE里可以运行的很好
但是转到VB里怎么就不行了?
高手指点下,谢谢.
其中的 Main为启动函数.,ShowDEMProject为显示一个窗体.

Sub Main()
   On Error Resume Next   
   Set acadApp = GetObject(, "AutoCAD.Application.16")
   If Err Then
      Err.Clear
      Set acadApp = CreateObject("AutoCAD.Application.16")
      If Err Then
         MsgBox Err.Description
         Exit Sub
      End If
   End If
   acadApp.Visible = True   
   '为当前菜单组定义变量
   Dim currMenuGroup As AcadMenuGroup
   Set currMenuGroup = acadApp.MenuGroups.Item(0)
   '定义宏
   Dim Macro As String
   '***********************************************
   '创建新的菜单“DEM"及其子菜单
   Dim newMenuDEM As AcadPopupMenu
   Set newMenuDEM = currMenuGroup.Menus.Add("DEM")
   '为菜单添加“工程信息”子菜单
   Dim newMenuDEMProject As AcadPopupMenuItem
   Macro = "-vbarun ShowDEMProject" + Chr(32)
   Set newMenuDEMProject = newMenuDEM.AddMenuItem(newMenuDEM.Count + 1, "工程信息...", Macro)

   '在菜单条上显示菜单
  currMenuGroup.Menus.InsertMenuInMenuBar "DEM", ""
End Sub

Public Sub ShowDEMProject()
   Form1.Show
End Sub