README.md

Description

This code unloads all the forms of the program returning the resources back to the computer

More Info

Optional force input as a boolean

This code is pretty straight forward and an understanding of loops and arrays is will help.

Submitted On
By	rbennett
Level	Intermediate
User Rating	4.0 (16 globes from 4 users)
Compatibility	VB 5.0, VB 6.0
Category	Custom Controls/ Forms/ Menus
World	Visual Basic
Archive File

Source Code

Private Sub unloader(Optional ByVal ForceClose As Boolean = False)
  Dim i As Long
On Error Resume Next
  For i = Forms.Count - 1 To 0 Step -1
    Unload Forms(i)
    Set Forms(i) = Nothing
    If Not ForceClose Then
      If Forms.Count > i Then
        Exit Sub
      End If
    End If
  Next i
  If ForceClose Or (Forms.Count = 0) Then Close
  If ForceClose Or (Forms.Count > 0) Then End
End Sub