Shut Down و پیغام Msgbox در رویداد unload فرم

[__siavash__]

سلام
من یه فرم دارم که در استارت آپ قرار داره و همیشه باز است و در رویداد unload فرم یک msgbox جهت تاید بسته شدن فرم ظاهر میشه (دارای گزینه های yes/No) اما میخوام وقتی دارم کامپیوترو خاموش میکنم این Msgbox ظاهر نشه، و فقط زمانی که کاربر دستی اونو میخواد ببنده این Msgbox ظاهر بشه !!!
میشه ؟

[__siavash__]

یعنی راهی وجود نداره ؟؟؟؟؟؟؟

[behzad_gh]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
Dim msgboxres As VbMsgBoxResult
msgboxres = MsgBox("are you want to exit?", vbYesNo)
If msgboxres = vbNo Then Cancel = True
End If
End Sub

[__siavash__]

behzad_gh (http://barnamenevis.org/forum/member.php?u=18177)
واقعا دستت درد نکنه،
من کد بالا رو به صورت


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbAppWindows Then
End
Else
Dim msgboxres As VbMsgBoxResult
msgboxres = MsgBox("Do you really want to Exit program?", vbQuestion + vbYesNo + vbDefaultButton2)
If msgboxres = vbNo Then Cancel = True
If msgboxres = vbYes Then MsgBox "If you Exit this program in future your connection not log unless you run it again !", vbExclamation
End If
End Sub

تو برنامه به کار بردم