[vb6] chiedere conferma per uscire dal programma

[arcadia]

Vorrei chiedere la conferma per la chiusura del programma sul click della X.

In circostanze normali farei questo:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 if msgbox ("uscire",vbyesno)=yes then
  end
 end if
End Sub

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

così quando passa per l' "unload" imposto "cancel=1" per non far chiudere il programma. Se risponde invece di si alla domanda in queryUnload faccio "end", per chiudere il programma senza passare per "Unload"

Il problema è che il mio form è un form MDI quindi quando passa per l' "unload" anche se non esce dal programma mi scarica comunque tutti i form child.
Come posso evitarlo?