'How to minimize all active windows in application

'make a MDIform with several child forms
'and a menu 
on
 the MDI form with two options:
'mnuWindows.caption = "minimize"
'index = 1
'mnuWindows.caption = "restore"
'index = 2

'Put the next code 
on
 the right place and press F5

Sub mnuWindows_Click(Index 
as
 integer)
    
select
 
case
 Index
    
case
 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