Dim p As Process = Process.Start("Notepad.exe")
        While Not p.WaitForExit(200)
            Application.DoEvents()
        End While

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov