[local]1[/local]

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不能创建对象，都没法进行下面的工作了，求帮忙！

你好，能说的详细点吗