Cerrar formularios no MDIchild

Osvaldo
11 de Enero del 2006
Necesito saber como hago para que al apretar la x(cerrar) un formulario MDI, me cierre lodos los que no son Hijos (MDIChild=false)
Que codigo utilizo

Gracias

mvallejos
11 de Enero del 2006
Recorriendo todos los forms activos de la aplicacion

Sub CerrarFormsHijos
Dim F as Form

For Each F In Forms
' Para que no se cierre a sí mismo
IF F.Name <> Me.Name Then
Unload F
End if
Next F

End Sub

A esta sub la llamas en el evento QueryUnload del formulario MDI principal

Saludos