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?

[David]

Puedes tener una variable Boolean pública en un módulo, cuando quieres cerrar a partir del MDI, esa variable la colocas en True, y en el resto de las ventanas, preguntas por el valor de la variable, si es True, no volver a preguntar.
O si lo que quieres es cerrar definitivamente la aplicación puedes hacer End en el evento Unload del MDI.

[rulsanchez]

Muchísimas gracias David, me ha salido sin problema!!!