[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?

[arcadia]

come non detto, risolto grazie. Una piccola svista.

[Brainjar]

Metti tutta la logica nella QueryUnload :

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 If MsgBox("uscire", vbYesNo) = vbYes Then
     End
 Else
     Cancel = 1
 End If

End Sub

Ciao,