Formun unload prosedurune girin, ve sadece şunu yazın
işte ; Kod:
Private Sub Form_Unload(Cancel As Integer) cancel=1 'formu kapatma End Sub
isterseniz değişik mesajlarla kullnıcıyla eğlenebilirsiniz orneğin ;
Kod:
Private Sub Form_Unload(Cancel As Integer) cancel=1 msgbox "Kapatılamaz Bir Program Actınız..Yazık.." End Sub

__________________