unloadکردن فرم

[میلاد علوی]

چطوری وقتی روی دکمه کلوز فرم کلیک بشه برنامه سوال کنه ببندم با نه و اگه نه زریم بسته نشه

[S_VB.max]

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Are you sure to close ?", vbOKCancel) = vbOK Then
End
Else: Cancel = True
End If
End Sub