برای این کار در رویداد Unload  فرم یک مقدار با نام cancel وجود دارد که اگر با مقدار 1 مقدار دهی شود فرم بسته نمی شود . شما می توانید بعد از اینکه کاربر دکمه ی Close را زد برایش پیغامی نمایش دهید که حاکی از اخطار Save باشد. در این برنامه من از یک Commondialog استفاده کردم که شما می توانید از Component وبژوال بیسیک استفاده کنید.

'www.vbocx.blogfa.com

'Email =  dady_jabery17@yahoo.com

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
mg = MsgBox("Do you Want to Save?", vbYesNoCancel + vbExclamation)
If mg = vbYes Then
CommonDialog1.ShowSave
End
ElseIf mg = vbNo Then
End
End If
End Sub

دانلود کنید