主题：如何控制一个程序退出

 只能是杀死进程

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    output.show(p.processName)
    If ("Excel" = p.ProcessName)
        msgbox(p.MainWindowTitle)
        p.kill
    End If
Next

 或者是，把程序嵌入到你的窗口  http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73007&skin=0

 或者是用 http://www.foxtable.com/webhelp/scr/2713.htm