/ Snippet Library - View Code

Visual Basic / Forms / Unload Forms

Snippet details

ID: 223

Viewed: 1388

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

Unload all forms in your app.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight Allnone
Code
Highlight AllPublic Sub UnloadForms() Dim frm as Integer frm = Forms.Count Do While f > 0 Unload Forms(frm -1) If frm = forms.count Then Exit Do frm = frm -1 Loop End Sub 'Or here's another way Public Sub UnloadAllForms() Dim Form As Form For Each Form In Forms Unload Form Set Form = Nothing Next Form End Sub

No Reviews to show