如何让vb响应外部程序的关闭 ?
我想实现:当某一外部程序的关闭时触发vb程序的关闭,并且该外部程序不是由vb(shell)启动的.

Function FileIsOpen(sFilePathName As String)
Dim iFileNum As Integer, iErrNum As Integer
On Error Resume Next
iFileNum = FreeFile()
Open sFilePathName For Input Lock Read As #iFileNum

Close iFileNum
iErrNum = Err.Number
Select Case iErrNum
Case 0
FileIsOpen = False
Case 70
FileIsOpen = True
Case Else
FileIsOpen = True
End Select
End Function

Private Sub Form_Load()
MsgBox FileIsOpen("c:\ccu.mdb")
End Sub

不行啊

我是新手，好的办法想不出，笨办法有一个，就是监视正在运行的程序，如果进程中没有XX程序，那就是XX程序已经退出了。