点击关闭窗口时提示

[archy_flash]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("你 确 定 要 退 出 本 系 统 吗?", vbYesNo + vbQuestion, "退出询问") = vbYes Then
Else
Cancel = True
End If
End Sub


这个可以在关闭窗口时提示，但如果点击这个窗体内的其它按钮，也会提示过个的，因这些按钮有unload me

那请问要怎么写才不会出现这种情况呢，