Can't create new inventor in standalone

[Anonymous]

I'm using VB 6 to create a stand alone application.

The following lines generates error 429
ActiveX component can't create object


Dim oDoc As Document
Set oDoc = ThisApplication.Documents.Add(kPartDocumentObject)

[Anonymous]

The global variable ThisApplication exists within Inventor's VBA. You're
using a variable with this name in the sample code. Unless you've declared
and set it in some code not shown that's probably your problem.

In an external application you need to connect to and get the Inventor
Application object. In VB 6 you can use the GetObject function.

Dim oApp As Inventor.Application
Set oApp = GetObject(,"Inventor.Application")

--
Brian Ekins
Autodesk Inventor API