[local]1[/local]

相关dll坏了或没注册。

应该是VB没安装好，如果只是个别控件可以找到之后手动注册一下

Dim AcadApp As AcadApplication

Private Sub Command1_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
MsgBox "Now running" + AcadApp.Name + "version" + AcadApp.Version
AcadApp.Visible = True
End Sub
这是源程序，一运行就显示ActiveX不能创建对象，都没法进行下面的工作了，求帮忙！

你好，能说的详细点吗

这个问题涉及到的范围比较广。本人经常也用VB编写一些控制AutoCAD的程序和项目，没有遇见过楼主这样的问题。如果需要，可以考虑远程帮你解决。

上网下载缺少的控件，放在32位系统扔到System32下

管理员身份运行命令提示符

regsvr32 "缺少控件名".ocx