Cerrar MDI

[rulsanchez]

Wenas a todos, vereis tengo un formulario MDi, con 3 formularios que no son "hijos" en el.
Cuando cierro pregunto si quiere cerrar y luego en el mdi recorro los objetos forms y voy llamando a sus eventos unload, PERO, cuando lo hace y llama al unload de cada uno entra y pregunta de nuevo si quiere cerrar (lo tengo asi para cuando quieren cerrar unicamente ese form).
Como hago para que no salga ese mensaje de nuevo.???.
Esto es lo que tengo en el unload del Mdi:


respuesta = MsgBox("¿Salir de la aplicación?", vbYesNo + vbInformation, "Cerrar")
If respuesta = vbYes Then

For Each formulario In Forms
Unload formulario
Next formulario

End If


y esto en un unload de un form:

respuesta = MsgBox("Desea cerrar?", vbYesNo + vbInformation, "Salir")
If respuesta = vbYes Then
Cancel = 0
Else
Cancel = 0...
...
...

Asi que pregunta dos veces, el problema no es que pregunte, es k si digo k no en el form (no en el mdi) se queda la ventana sola y no quiero que haga eso

Alguna idea?