• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Unload all forms at once

Unload all forms at once

Unload all forms at once

API Declarations



No Declaration...



Rate Unload all forms at once

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'This function unloads all loaded forms
'Usage: UnloadAll Me
Dim i As Integer
While Forms.Count > 1
    ' Find first form besides "Active Form" to unload
    i = 0
    While Forms(i).Caption = ActiveFrmName.Caption
         i = i + 1
    Wend
    Unload Forms(i)
Wend
' Last thing to be done...
Unload ActiveFrmName
End
End Function