一、创建一个ACTIVEX DLL项目cadPro。二、添加一个模块，命名为ModCad。代码如下：```vb；Public acadApp As Object。Public acadDoc As Object &#39；这里建立一个新模块主要是为了以后在多个窗体、类或者多个工程中调用。```；三、添加一个类ClsTest，代码如下：```vb；Public Function MenuMain(MenuIndex As Integer)。&#39；下面的判断在VB中测试时可以用到，在生成DLL后VBA调用时可注释。If ModCad.acadApp Is Nothing Or ModCad.acadDoc Is Nothing Then。ConnectToAcad()。End If；