Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
if msgbox("exit or not?",vbyesno)=vbyes then
cancel=true
else
cancel=false
endif
End Sub
一样的
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim affrim As Integer
affrim = MsgBox("是否要退出系统?", vbOKCancel + vbQuestion, "退出")
If affrim = 2 Then
Cancel = True
Exit Sub
Else
End
End If
End Sub