Título da Dica: Fechar todos os formularios de um MDIForm
Postada em 3/2/2003 por Salgadinho Primeiro declaramos uma variavel que representa os formularios... Dim Form As Form
Depois verificamos todos os formularios abertos e indicamos para que feche todos que nao sejam o MDIForm. For Each Form In Forms If Form.Name <> "MDIForm1" Then Unload Form Next