VB退出窗体时会提示选择是否退出

private sub Form_unload(……)
cancle=false
msgbox "确定退出？",vbyesno
if vbyes then cancle=true
end sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
dim a as integer
a = MsgBox("退出吗？", vbYesNo, Me.Caption)
If a = vbNo Then Cancel = -1
End Sub

只要加这一句
Private Sub Form_Unload(Cancel As Integer)
Cancel = IIf(MsgBox("确定退出？", vbYesNo) = vbYes, 0, 1)
End Sub