对于VB开发还是新手 今天按照教程做了一段程序 但是测试的时候弹出“activex部件不能创建对象” 不知道是什么原因 有没有达人可以明示？
程序：
Option Explicit
Dim AcadApp As Object             'AutoCAD应用程序对象变量
Dim Preference As Object          'AutoCAD优先设置对象变量
Dim Acaddoc As Object             'AutoCAD文档对象变量
Dim PaSpace As Object             'AutoCAD图纸空间对象变量
Dim MoSpace As Object             'AutoCAD模型空间对象变量

Private Sub CmdLinkCAD_Click()
On Error Resume Next    '出错继续
Set AcadApp = GetObject("AutoCAD.Application")
If Err Then          '如果出错
   Err.Clear
   Set AcadApp = CreateObject("AutoCAD.Application")
   If Err Then
      MsgBox Err.Description
      Exit Sub
   End If
End If
AcadApp.Visible = True
Set Preference = AcadApp.Preference
Set Acaddoc = AcadApp.ActiveDocument
Set MoSpace = Acaddoc.ModelSpace
Set PaSpace = Acaddoc.PaperSpace
End Sub
我用的是WIN7 VB6和CAD2004 但是换到XP里就好用了 想问一下是为什么？ 我不太想一直在虚拟机的做设计。。。。

以系统管理员权限运行

有可能是类名称写错了。我用的autocad 2007的类名称为 AutoCAD.AcadApplication。
其实你可以先在vb6中引用autoCAD Type Library。然后在写代码时就有智能提示，如输入as 后就有提示AutoCAD。。。这样更方便，还不容易出错。