在VB中，如何实现在关闭窗体时的重载？

Question

在
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)End Sub
设置Cancel =TRUE

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 if msgbox ("Are you sure to quit?",,vbyesno) =vbyes then
    'End Sub

Answer 2

Private Function UnLoadThisForm() As Integer
'判断是否可以安全退出本界面
    UnLoadThisForm = 0
    
    If TmpNewFlag = False Then
        If MsgBox("现在新增状态,还没有保存。请先保存后再退出！", vbOKOnly, "提示") = vbOK Then
            UnLoadThisForm = -1
            Exit Function
        End If
    End If
    
    If TmpSaveFlag = False Then
        If MsgBox("现在编辑状态,还没有保存。要保存后退出吗？", vbOKCancel, "提示") = vbOK Then
            Call cmdSave_Click
            UnLoadThisForm = 0
            TmpSaveFlag = True   '置为保存
        Else
            UnLoadThisForm = -1
            Exit Function
        End If
    End If
    
End Function
Private Sub Form_Unload(Cancel As Integer)
    '判断是否可以安全退出本界面
    Cancel = UnLoadThisForm
End Sub
Private Sub CmdExit_Click()
    
    '判断是否可以安全退出本界面
    If UnLoadThisForm = -1 Then
        Exit Sub
    Else
        Unload Me
    End If
    
End Sub