Закрытие форм в VB6

[PSD]

Треваальная задача, программа на VB6? нужно выгрузить все загруженые формы и отчеты как реально обявленые так и динамические,
помнится в VB6 была глобальная коллекция пройдя по которой можно было пербрать все загруженные формы приложения.
Ни кто не помнит как к ней обратится?
И может быть есть другой способ?     

[HandKot]

так у меня

Код:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim frm As Form
    Dim i As Integer
    
    ' Зарываем все открытые формы
    While Forms.Count > 1
        For i = 0 To Forms.Count - 1
            Set frm = Forms(i)
            If frm.Name <> "frmMain" Then
                Unload frm
                Exit For
            End If
        Next
    Wend
    
    If Forms.Count > 1 Then Cancel = True
End Sub

где frmMain - главная форма