Visualizza wikitesto di Chiudere tutte le finestre aperte da un applicativo

Se in chiusura di un applicativo si intende chiudere anche tutte le finestre eventualmente, generate dall'applicativo medesimo oltre il suo ''Form'' principale, si può utilizzare o la Classe ''Windows'', che ritorna una collezione di tutte le finestre create dall'applicativo principale:
 Private w As Window
 
 
 Public Sub Form_Open()
 
  With w = New Window
    .W = 100
    .H = 100
    .X = 0
    .Y = 0
    .Show
  End With
  
  With w = New Window
    .W = 100
    .H = 100
    .X = 200
    .Y = 100
    .Show
  End With
  
  With w = New Window
    .W = 100
    .H = 100
    .X = 300
    .Y = 200
    .Show
  End With
  
  Me.Center
  
 End
 
 
 Public Sub Form_Close()
 
  For Each w In Windows
    w.Close
  Next
 
 End
oppure sarà sufficiente assegnare alla Proprietà ".MainWindow" della Classe ''Application'' la finestra ''principale'' dell'applicativo:
 Public Sub Form_Open()
 
  Application.MainWindow = Me   <FONT color=gray>' ''oppure: = FMain''</font>
 
 End