フォームを閉じないようにする VB6 SP6

VB6 でプログラムを作成中です。

プログラムを実行して、フォームが立ち上がった所で右上の×を押し、画面を閉じようとします。
そこで以下のコードで、もし×が押されたらvbYesNoメッセージボックスを表示させ、もし「いいえ」が押されたらフォームを閉じないようにし、実行画面を維持したいのです。

しかし、Exit Sub　ですとプログラムが終了してしまい、困っています。宜しくお願い致します。

Private Sub Form_Unload(Cancel As Integer) 'フォームを閉じる
Dim last As String
last = MsgBox(" プログラムを終了させますか？", vbYesNo, "終了確認１")

If (last = vbYes) Then
Dim last2 As String
last2 = MsgBox(" 本当にプログラムを終了させますか？", vbYesNo, "終了確認２")
If (last2 = vbNo) Then
Exit Sub
End If
End If

If (last = vbNo) Then
Exit Sub
End If

End Sub

No.1 ベストアンサー 回答者： emsuja 回答日時： 2008/06/09 07:39

とりあえずは Cancel = True とすれば終了のチャンセルは出来ると思いますがそれでは小回りがききません。

通常は
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
を使用します。

UnloadMode で Form を閉じる原因コードが把握可能です。

この回答へのお礼

有難うございます。
とりあえずうまくいきました。

お礼日時：2008/06/11 13:22