お世話になります。
「他のプログラムの終了を待つには」
を見て、VBで作成したEXEで片方の終了を待ってもう一方の処理をしたいと思っています。
EXEを起動する際に、引数付きで起動したいのですが、Shellを使うと引数が指定できません。
そこでShellExecuteを使って起動させたのですが、今度はそのEXEの終了がわからず
「終了するまで待つ」ことができません。どのようにしたらよいのでしょうか？
shellでも引数付きで起動できるのでしょうか？
ret = ShellExecute(0, "open", "A.exe", s, vbNull, 1)
s はコマンドライン引数

> VBで作成したEXEで片方の終了を待ってもう一方の処理をしたいと思っています。

Private Sub Command1_Click()
    MsgBox "メモ帳で C:\TEST.TXT を開きます。"
    CreateObject("WScript.Shell").Run "notepad.exe  C:\TEST.TXT", vbNormalFocus, True
    MsgBox "メモ帳が閉じられました。"
End Sub

ありがとうございました。
完璧です！！

> Private Sub Command1_Click()
>     MsgBox "メモ帳で C:\TEST.TXT を開きます。"
>     CreateObject("WScript.Shell").Run "notepad.exe  C:\TEST.TXT", vbNormalFocus, True
>     MsgBox "メモ帳が閉じられました。"
> End Sub