Windows終了時に、稼動中のVBアプリを終了させるには? (ID:105728)

名前

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

本文 度々、お世話になります。 Form_Loadのサブルーチンの中で、Form_QueryUnloadを繰り返してWind ows終了(=vbAppWindows)を感知させたいのですが、Callの仕方はどう書 いたらよいのでしょうか? 下記うまくいきません。 ------------------------------------------------------------- Sub Form_Load() L000: ・・・(略)・・・ cancel = 0 unloadmode = 2 Call Form_QueryUnload(cancel,unloadmode) ret = unloadmode 'Windows終了の場合、アプリ強制終了して「反応なし」MsgBox防ぐ If ret = vbAppWindows Then Unload Me: Exit Sub: End 'アプリ終了 End If ・・・(略)・・・ GoTo L000 '--- Windows終了監視のためループ End Sub ------------------------------------------------------------- どなたか訂正指摘お願い致します。あるいはCallでは無理なのでしょうか?