close forms

[SIMIN]

Hi everyone,

Does anyone know how can I close all forms on my application EXCEPT main / startup form?

Something like this in VB6 ?

Dim frm As Form
For Each frm In Forms
Unload frm
Set frm = Nothing
Next

[PlausiblyDamp]

Could you not have a collection of forms and simply add each form you open to it? To close them all you would simply loop over the collection and call the .Close method of each form in turn.

[roger_wgnr]

You can use something like this

For Each FrmToClose As Form In Application.OpenForms
   If FrmToClose IsNot Me Then
       FrmToClose.Close()
   End If
Next