ActiveX EXE не могу добиться многопоточности

[pertov]

Не могу добиться многопоточности ActiveX EXE в примере,
блокируется исполняемый поток
кратко смысл примера:
стартует Form1
нажимаем Command1
через ScriptControl выполняется:

Код: Выделить всё

Function NewProcess()
Dim objService, objEventSource, objEvent, strResult
Set objService = GetObject("WinMgmts:\\.\Root\CIMV2")
Set objEventSource = objService.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 2 WHERE TargetInstance ISA 'Win32_Process'")
Set objEvent = objEventSource.NextEvent
NewProcess = objEvent.TargetInstance.Name
End Function

и зависает пока я не запусчу (или запущю) какое нибудь приложение

[Хакер]

Откуда взялось ложное мнение, что должно быть как-то иначе.
(Пример не качал)

[pertov]

на домашнем компутере winxpsp3 без установленного VB6 запустил exe-шники из примера и все заработало.. не зависает и нормально ждет пока что нибудь не стартанет.

[Хакер]

Что вкладывается в понятие «нормально ждёт»?

[pertov]

Нормально ждет это когда тягаю за форму - она таскается по экрану, жму на кнопку - кнопка нажимается, а на том компе где писал пример форма замораживалась и отвисала только после запуска к\н приложения.