How do I load an unregistered addin file?

[Zoo]

Hi,
I want a VB6 Application to control PowerPoint.exe.
I want the Application to make PowerPoint to load a specific addin file
which is not registered.

'This VB6 Project refers to <Microsoft PowerPoint 11.0 Object Library>
Sub Main()
Dim p As PowerPoint.Application
Set p = New PowerPoint.Application
p.Visible = msoTrue
Const sPath As String = "C:\Test.ppa"

Dim oAddin As PowerPoint.AddIn
Set oAddin = p.AddIns.Add(sPath)
If oAddin.Loaded = msoFalse Then

'What shoud I do here to load the addin?

''''oAddin.AutoLoad = msoTrue
''''AutoLoad has no effect at this time.
''''AutoLoad has effect since next time.
''''But I want effect at this time.
End If

End Sub

 

[Zoo]

I fixed the problem.

To load an unregistered addin file,

oAddin.Loaded = True

is the solution.

Thank you.