主题：[求助] 等待时间

basemainform.WindowState=1 ' 最小化本软件

Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "Attachments\JT2012.exe" '指定要打开的文件
Proc.Start()

此主题相关图片如下：111.jpg

  老师   我这是打开一个截图的软件，经常Foxtable 还没有完全最小化后，截图软件就已经打开了，就像上面的图片一样，

请问能不能最小化下面加一段等待时间为5毫秒的代码，如果能加，请问代码怎样写，请问还有什么别的方法达到此效果。

 我这样测试没问题

baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
ClipBoard.Clear
Dim proc As new Process
proc.File = ApplicationPath & "/capture.exe"
proc.WaitForClose = True
proc.Start
if ClipBoard.GetImage isnot nothing then
    msgbox("复制了截图")
Else
    msgbox("没有")
End If

你也可以试试这样写

baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(1)
    Application.DoEvents
End While

Dim proc As new Process
proc.File = ApplicationPath & "/capture.exe"
proc.WaitForClose = True
proc.Start

代码可以使用 谢谢老师