【Visual BASIC 2008】で、禁断のCalc呼出し電卓プログラムを作りました。下記コードでは、MsgBoxを使って、Calcが終了するのを待っていますが、Calcが終了するのを自分で待ってOKボタンを押さなければなりません。これをMsgBoxを使わずに自動で待ってCalc終了後、クリップボックスの内容を取得するように変えるにはどうすればいいでしょうか。

こんな感じでしょうか？

(なぜか%{F4}を取りこぼす場合があるようなので、%{F4}のリトライ処理を入れています)

Public Class Form1
    Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Integer) As Integer

    'お約束のボタン
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = CCalc(TextBox1.Text)
        TextBox1.Focus()
    End Sub

    'Windowsアクセサリの電卓Calcを呼出して計算結果を文字列で取得する関数
    Private Function CCalc(ByVal expr As String) As String
        Dim res As String = ""
        Dim newProc As Diagnostics.Process

        If Microsoft.VisualBasic.Right(expr, 1) <> "=" Then expr += "="
        'クリップボードに文字列をコピー
        Clipboard.SetDataObject(expr)

        'Windowsアクセサリの電卓Calcを呼出す
        newProc = Diagnostics.Process.Start("C:\WINDOWS\system32\Calc.exe")

        newProc.WaitForInputIdle(1000)
        SetForegroundWindow(newProc.MainWindowHandle)

        'SendKeysで計算式を送って計算結果をクリップボードにコピーしてCalcを終了
        My.Computer.Keyboard.SendKeys("^v^c%{F4}", True)

        'Calcが計算終了するのを待つ
        'MsgBox("Ready ?", MsgBoxStyle.Question)
        While newProc.WaitForExit(500) = False
            SetForegroundWindow(newProc.MainWindowHandle)
            My.Computer.Keyboard.SendKeys("%{F4}", True)
        End While

        'クリップボードに文字列データがあるか確認して文字列データがあれば取得
        If Clipboard.ContainsText() Then res = Clipboard.GetText()

        CCalc = res
    End Function

End Class