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