Dim proc As System.Diagnostics.Process
        Dim si As New System.Diagnostics.ProcessStartInfo
        si.Arguments = "C:\test.txt"
        si.FileName = "Notepad.exe"
        si.WindowStyle = ProcessWindowStyle.Normal
        proc = Process.Start(si)
        proc.WaitForExit(10000)

        Do
            Application.DoEvents()
        Loop While Not proc.WaitForExit(500)