Menutup Seluruh Form Menggunakan For...Each

Di bawah ini merupakan procedure untuk menutup seluruh form dengan menggunakan for...each.

Option Explicit 
 
Public Sub CloseAllForm() 
    Dim frm As Form 
    For Each frm In Forms 
        Unload frm 
    Next 
End Sub 

Contoh penggunaan procedure di atas:

Private Sub Form_Unload(Cancel As Integer) 
    CloseAllForm 
End Sub