devxlogo

Unload All Forms

Unload All Forms

 Public Sub UnloadAll()Dim f As Integerf = Forms.CountDo While f > 0        Unload Forms(f - 1)        ' If form isn't unloaded exit (User had canceled...)        If f = Forms.Count Then Exit Do        f = f - 1LoopEnd Sub

devx-admin

Share the Post: