Visio.InvisibleApp & focus?

[Nikolay Belyh]

Please can somebody help me? I run the following code:

Set app = CreateObject("Visio.InvisibleApp")
app.Documents.Open "MyDocument.vsd"

And Visio steals the focus from the window that is currently active on
the desktop, "activates" (obviously invisible) document that is being
opened, and passes the focus to that document. How do I get rid of
this effect (i.e. how do I prevent Visio from stealing the focus on
opening document, when visio application it is not visible)?

Kind regards, Nikolay.