Выключение компьютера

Помогите люди, надо сделать такую программу:
как какая то программа заканчивает работу то, начинаеться выключение компа, выключение как сделать на Windows XP я знаю:

Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
ObjOperatingSystem.ShutDown
Next

А вот как сделать, так что бы программа видела что другая программа завершила работу???? HELP(F1)