Create a sub-process in VB6 and wait for the sub-process to exit.

 

Private declare function OpenProcess lib "Kernel32" (byval dwdesiredaccess as long, byval binherithandle as long, byval dwprocessid as long) as includeclare function closehandle lib "Kernel32" (byval hobject as long) as longprivate declare function waitforsingleobject lib "Kernel32" (byval hhandle as long, byval dwmilliseconds as long) as longprivate const placement = & h400private const status_pending = & h103private const synchronize = & h100000private const infinite = & export main () dim tmpid as long dim tmphwnd as long tmpid = shell (App. path & "\ autoreg. bat ") tmphwnd = OpenProcess (synchronize, 0, tmpid) If tmphwnd <> 0 then call waitforsingleobject (tmphwnd, infinite) Call closehandle (tmphwnd) end if msgbox" execution completed "End sub