Завершение регистрации - как поймать процесс RegSvr32? - VB

Формулировка задачи:

Как поймать процесс

RegSvr32

например я вызываю:

Call Shell("RegSvr32 /s " & Name) 'Регистрация

но так-как у меня это работает внутри суб-компонента могут случиться неожиданные глюки (чего правда еще небыло но всётаки...) если кто понял мой вопрос очень прошу подсказать с ответом

Решение задачи: «Завершение регистрации - как поймать процесс RegSvr32?»

textual
                            Листинг программы 
                        

                            Dim pid As Long, hProc As Long
pid = Shell(Path)
hProc = OpenProcess(SYNCHRONIZE, False, pid)
WaitForSingleObject hProc, INFINITE
CloseHandle hProc
' Процесс завершился
                        