كيف أحول زر ال (X) الموجود في أعلى الفورم إلى حدث أخر غير الإغلاق؟

في الحدث Form_Unload أكتب الكود التالي :

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
'الآن أكتب ما تريد من الأكواد
End Sub

أتمنى أني قد أفدتك