CAD2014 VBA 窗体动态添加组件事件代码的报错方法

　　今天尝试用VBA来给CAD的用户窗体动态添加组件，看了网上很多教程，总是提示：无法找到工程或库，很头疼。

　　编程环境W7 64bit + CAD2014。

　　参考了很多网上的例子，也引用了关键的运行库，总是报错：无法找到工程或库。

　　经过一段时间的摸索，关键点就在于，VBE的引用的问题。

下面例子里的红色高亮的字段就是需要大家注意的。

Sub AddCode()
  With VBE.ActiveVBProject.VBComponents("模块2").CodeModule
    .InsertLines 1, "Public sub cb_Click()"
    .InsertLines 2, "msgbox ""Hello"""
    .InsertLines 3, "end sub"
  End With
End Sub