Chiudere tutti i form aperti

Di seguito una semplice Sub per la chiusura dei form aperti. Sarà aventualmente anche posibile scegliere quali non chiudere:

Sub ChiudiFormAperti()

Dim FormApero(50) As Form  ‘50 è il numero massimo di form che prevedo possano essere aperti
Dim i As Integer = 0
Dim cForm As Form

'Conto i Form Aperti
For Each f In Application.OpenForms
     FormAperto(i) = cForm
     i = i + 1
Next

'Chiudo i Form Aperti
For T As Integer = 0 To i

      'Verifico quali form non devo chiudere
       If FormAperto(T).Name <> “mdiProgramma” AND FormAperto(T).Name <> “Pulsantiera” Then
         FormAperto(T).Close()
         FormAperto(T).Dispose()
      End If

Next

End Sub