codice:
Private Sub Form_Unload(Cancel As Integer)
    Cancel = -1
End Sub
Ovviamente se viene chiusa tramite la lista dei Task non puoi evitare la chiusura.

Ciao