Inserting ATL Control fails

[has ex]

If I create a ATL Control, a default one for example, and Insert it
from Menu item Insert->Control, I can insert many instances of this control.

But if I go to VBA and run

Sub test()
ActivePage.InsertObject "VisioCtrlX.MyVisioControl.1", visInsertAsControl
End Sub

where "VisioCtrlX.MyVisioControl.1" is my registered class name (ProgID)
then the first run is fine but if I run again, I get an error
could not be found

If it is so, why do not I get it in the first run ? I assume visio is buggy
here, but
I tested some controls not all are like this. Visio creates an other type
lib with
exd extension, some sort of wrapper, is it any thing to do with my problem.

Any clues will help.


If I take the Type Lib out of my registration. Then I can insert but the
control is not working properly????


Thanks

Has