８．フォームのアンロード時にアンロードをキャンセルさせる方法
＜ 使用用途 ＞
フォームのアンロード時に何か処理をする事により、その結果次第でアンロードするかしないかを選択する場合等に使用できます
＜ 説明 ＞
引数のＣＡＮＣＥＬに０以外をいれる
０ ：アンロードされる
以外：アンロードがキャンセルされる
＜ ＳＡＭＰＬＥ ＞
'フォームがアンロードされる時の処理
Private Sub Form_Unload(Cancel As Integer)
Dim Q As String
Q = MsgBox( "？？？を保存場所にしますか？", 32 + 4, "データ格納画面")
If Q = 6 Then
FAILPATH = Text1.Text
Else
Cancel = 1 'フォームのアンロード処理がキャンセルされる
End If
End Sub