こんにちは。ひろです。何度かお世話になっているＶＢ初心者です。今回もまた
行き詰ってしまいましたので質問させて頂きたいと思います。

フォーム右上の×ボタン。単純に使用不可にする方法は分かるのですが、幾らかの
条件を付与したいのです。プログラムには終了のコマンドボタンを用意していますが、
そのボタンを押下時には、ＤＢを参照してデータの保存状態を確認し、確認、警告の
メッセージを表示させています。フォームの×ボタンにこの終了ボタンと同様の作業を
させたい（連動させたい）のですが、なかなかうまくいきません。どなたか良い方法を
ご存知の方がおられましたら、是非ご教授下さい。当方環境はVB6.0、WindowsXPです。
宜しくお願いします。

終了ボタンのClickイベントプロシージャではUnload Meするに留め、
終了処理自体はQueryUnloadまたはUnloadイベントプロシージャに記述してください。

Sayさん、お早い回答有難うございます。

> 終了ボタンのClickイベントプロシージャではUnload Meするに留め、
> 終了処理自体はQueryUnloadまたはUnloadイベントプロシージャに記述してください。

早速試させてもらったのですが、どうもうまくいきませんでした。説明自体は理解
しているつもりなのですが・・・。結局のところ、フォームの×ボタンと終了ボタンの
Clickイベントプロシージャを連動させたい、同じ動きをさせたい（表示される
メッセージ等も全て）という事だったのですが、Sayさんの回答をもっと考えないと
駄目なのかな・・・。すみません。何しろ素人なもので、考え方からしておかしいのかも
しれません。もう一度詳しく教えて頂けませんか？

> Sayさん、お早い回答有難うございます。
>
> > 終了ボタンのClickイベントプロシージャではUnload Meするに留め、
> > 終了処理自体はQueryUnloadまたはUnloadイベントプロシージャに記述してください。
>
> 早速試させてもらったのですが、どうもうまくいきませんでした。説明自体は理解
> しているつもりなのですが・・・。結局のところ、フォームの×ボタンと終了ボタンの
> Clickイベントプロシージャを連動させたい、同じ動きをさせたい（表示される
> メッセージ等も全て）という事だったのですが、Sayさんの回答をもっと考えないと
> 駄目なのかな・・・。すみません。何しろ素人なもので、考え方からしておかしいのかも
> しれません。もう一度詳しく教えて頂けませんか？

Sayさん横からスミマセン。
ひろさん、コマンドボタン(Command1)１つ貼り付けて以下で一度試して下さい。

Option Explicit
Private Sub Command1_Click()
    Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    MsgBox "Form_QueryUnload"
End Sub
Private Sub Form_Unload(Cancel As Integer)
    MsgBox "Form_Unload"
End Sub

Command1クリック時、"Unload Me"の代わりに"End"になっていると
QueryUnload,Unload処理は実行されませんよ。間違ってたらごめんね。

Sayさん、名無しのドンべえさん、有難うございました。どうにか思った通りの
動きを実現させる事が出来ました。正直、まだ少々『？』な部分もあるんですが
後は何度も動きを見て理解したいと思います。初心者の拙い質問に付き合って
下さって本当に有難うございました。