'How to minimize all active windows in application 'make a MDIform with several child forms 'and a menuReturnon
the MDI form with two options: 'mnuWindows.caption = "minimize" 'index = 1 'mnuWindows.caption = "restore" 'index = 2 'Put the next codeon
the right place and press F5 Sub mnuWindows_Click(Indexas
integer)select
case
Indexcase
1 'minimize For t% = 1 To Forms.Count - 1 Forms(t%).WindowState = 1 Next t%case
2 'restore For t% = 1 To Forms.Count - 1 Forms(t%).WindowState = 0 Next t%end
Select End Sub