Fechar e Minimizar todas as Janelas

[Anderson Antunes 0]

Olá a todos,

Gosataria de saber se existe um modo simples de fechar e minimizar todas as janelas abertas dentro de um MDIForm. O projeto é no VB6.

 

Vlw, povo!

[Paulo Mendes 0]

Tenta Utilizar a Coleção Forms do Visual Basic.

 

Sub MinimizeAll()

	Dim frmElement As Form

	For Each frmElement In Forms
		` Minimiza o form
		frmElement.WindowState = vbMinimized
   Next frmElement

End Sub

Paulo Mendes