主题：调用外部程序，一闪就完成了，怎么暂停或按任意键退出

方法一：在pytest.py里面暂停即可。

https://www.baidu.com/baidu?wd=python+%E6%8C%89%E4%BB%BB%E6%84%8F%E9%94%AE

方法二：调出cmd.exe窗口，再调用执行命令

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.CreateNoWindow = False '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("ping baidu.com")
'p.StandardInput.WriteLine("exit")

延时长一点，即可

Dim Proc As New Process
 Proc.File = ProjectPath & "date.py"
Proc.Start()
System.Threading.Thread.Sleep(3000)
SetParent(Proc.MainWindowHandle, e.Form.BaseForm.Handle.ToInt32())

或者改成

Dim Proc As New Process
Proc.File = ProjectPath & "date.py"
Proc.Start()
Do While Proc.MainWindowHandle = 0
    application.Doevents
Loop

SetParent(Proc.MainWindowHandle, e.Form.BaseForm.Handle.ToInt32())