怎么让vb调用一个外部程序(A.exe)，A.exe关闭后自动再执行另一条命令？

private function checkexeisrun(byval exename as string) as boolean
dim ps
'枚举进程
For Each ps In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_ 
'循环进程
If ucase(ps.name) = ucase(exename) then 
 checkexeisrunning = True  
 exit function
 end If
 next
 end function
private sub command1_click()
shell "A.exe" '调用A.exe
timer1.enabled=true '启动计时器
end sub
private sub timer1_timer()
if checkexeisrun("a.exe")=false then '"a.exe"就是程序名
'你要执行的命令
end if
end sub
'计时器interval属性越小响应时间就越快，但不要调太小，否则可能会无响应。

1、用SHELL函数可以调用外部程序
2、可以在系统中监视指定程序的进程，找不到了就是程序关闭了，要用API函数，FOUNDWINDOW.

winexe shell 都行，findwindow检测a是否在运行