Pencereyi kapatmak için kapat düğmesini tıklıcaktır kullanıcı ama...

Formun unload prosedürüne girin, ve sadece şunu yazın
işte ;

Private Sub Form_Unload(Cancel As Integer)
cancel=1 'formu kapatma
End Sub


isterseniz değişik mesajlarla kullnıcıyla eğlenebilirsiniz örneğin ;
Private Sub Form_Unload(Cancel As Integer)
cancel=1
msgbox "Kapatamazsınız"
End Sub

Private Sub Form_Load()
app.taskvisible=false 'görev çubuğunda gösterme
End Sub