Visual Basic Programming Code Examples
Visual Basic > Forms Code Examples
Minimize - restore all child forms
Minimize - restore all child forms
'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
Return
