質問: 6 then end end if ちゃんと終了はできるのですが、msgboxが出ている時にフォームが表示されないんです。キャンセルすると再び見えるんですが、どうすれば直るでしょうか。
回答: 私の環境では、「メッセージボックスが出ている間はフォームが表示されない」という現象が確認できませんでした。 環境:windows2000sp4 + vb6.0sp6 exeファイルにコンパイルしてからもう一度試してみてはいかがでしょうか? 少し書き方を変えればうまくいくかも?ということで以下のような書き方はどうでしょうか。ご参考までに。 option explicit private sub form_queryunload(cancel as integer, unloadmode as integer) if msgbox("終了しますか?", vbokcancel + vbinformation, "終了確認") = vbcancel then cancel = true end if end sub private sub command1_click() unload me end sub