VB的代码,调试通过的。用外部的VB代码控制内部程序