关闭form的时候怎样可以弹出确认对话框？

Question

在按下关闭的叉的时候，怎么才可以让弹出对话框

Answer 1

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("您是否要退出系统 ？", 4 + 32 + 256, "考勤系统") = vbYes Then
 
        End
    Else
        Cancel = True
    End IfEnd Sub

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   If MsgBox("确定退出系统吗?", 32 + vbYesNo, "退出") = vbNo Then
      Cancel = True
   End If
End Sub

Answer 3

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If (MsgBox("确定要关闭吗", vbOKCancel, "提示") = vbCancel) Then Cancel = true
  
End Sub