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   ' oppure: = FMain

End