by Mike (7 Submissions)
Category: VB function enhancement
Compatability: Visual Basic 5.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (3 Votes)
Add this code to a module and simply use CloseAll to unload all forms in your project.
Side Effects
None that I know off, I haven't had any problems yet... a decrease in use of Unload and End?
Sub CloseAll()
On Error Resume Next
Dim intFrmNum As Integer
intFrmNum = Forms.Count
Do Until intFrmNum = 0
Unload Forms(intFrmNum - 1)
intFrmNum = intFrmNum - 1
Loop
End Sub