Private Sub CallProcess(ByVal path As String)
        Dim p As New System.Diagnostics.Process()
        p.StartInfo.FileName = path
        p.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
        p.Start()

        '设置等待关联进程退出的时间，并在该段时间结束前或该进程退出前，阻止当前线程执行 
        p.WaitForExit()

        '释放与此组件关联的所有资源
        p.Close()
    End Sub

private void CallProcess(string path) 
{ 
 System.Diagnostics.Process p = new System.Diagnostics.Process(); 
 p.StartInfo.FileName = path; 
 p.StartInfo.WindowStyle = ProcessWindowStyle.Minimized; 
 p.Start(); 
 p.WaitForExit(); 
 p.Close(); 
}