アプリを終了するまで待機 (ID:109008)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 WshShell.Runメソッドを利用してみるとか。 Private Sub Command1_Click() MsgBox "電卓を起動します。", vbSystemModal Or vbInformation CreateObject("WScript.Shell").Run "CALC.EXE", vbNormalFocus, True MsgBox "電卓が終了しました。", vbSystemModal Or vbInformation End Sub