VB6 Code - Menutup Seluruh Form For...each

Di bawah ini merupakan procedure VB6 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

Demikian contoh kode VB6 untuk menutup seluruh form menggunakan for .. each. Semoga bermanfaat.