using visio 2003 and vb6

[Olivier]

Hello,

I am using the follwoing code in vb 6 to automate Visio 2003

Private Sub oli()
Dim oli As Boolean
Dim appobj As Visio.Application
Set appobj = Visio.Application
End Sub

I get an error :run time 429 ActiveX component can't create object.

Any help would be appreciated,

Olivier

 

[Alex [MS]]

Hi Oliver,

If you want to create a new Visio application, try

Set appOb = new Visio.Application

Otherwise you will want to use VB's GetObject()

Alex