VB.NETでプロセスが終了するまで待機する

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        'プロセス終了フラグがOFFのとき処理を抜ける 

        If end_flg = False Then Exit Sub



        'ファイルを開いて終了まで待機する 

        Dim p As System.Diagnostics.Process = _

        System.Diagnostics.Process.Start("test.xls")

        If p Is Nothing Then

            Dim Processes As Process() = Process.GetProcesses

            For Each Process As Process In Processes

                If Process.MainWindowTitle = "Microsoft Excel - test.xls" Then

                    p = Process

                    Exit For

                End If

            Next

        End If

        'プロセスが終了したときに Exited イベントを発生させる 

        p.EnableRaisingEvents = True

        'イベントハンドラの追加 

        AddHandler p.Exited, AddressOf p_Exited

        'プロセス終了フラグをOFFにする 

        end_flg = False

    End Sub

    ' プライベート メンバ
    Private myProcess As System.Diagnostics.Process

    ' myProcess.Exited イベント
    Private Sub myProcess_Exited(ByVal sender As Object, ByVal e As System.EventArgs)
        MessageBox.Show("終了した")

        Try
            Me.myProcess.Close()
        Finally
            Me.myProcess.Dispose()
            Me.myProcess = Nothing
        End Try
    End Sub

    ' 指定した WorkBook を開いて Excel を実行する
    Private Sub ExecuteExcelApplication(ByVal workBookPath As String)
        If Not Me.myProcess Is Nothing Then
            Return
        End If

        Me.myProcess = System.Diagnostics.Process.Start("EXCEL", workBookPath)
        Me.myProcess.EnableRaisingEvents = True
        AddHandler Me.myProcess.Exited, AddressOf myProcess_Exited
    End Sub

    ' 使用例
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.ExecuteExcelApplication("C:\Book1.xls")
    End Sub