How to start only one instance of ActiveQt?

[mister_wang]

I need executable Activex server.
How to make only one instance of executable sever?

for example I start simpleax.exe from example/simple .The from some script engine :

Option explicit
Set app = CreateObject ("simpleax.SimpleAx.1")
app.value = app.value +1
app.show()

Option explicit
Set app = CreateObject ("simpleax.SimpleAx.1")
app.value = app.value +1
app.show()

To copy to clipboard, switch view to plain text mode 

on click every time I have app.value == 1 but should increment.
CreateObject operation restarts server

[StrikeByte]

Check if app is already set, if it is don't create a new object