How do I close all forms?

I want to close all the forms when a user clicks on a button (without knowing the names of the forms)

Any ideas?

Cheers

Just sa simple as this.

Code:

---

Private Sub Command1_Click()
Dim nForm As Form
For Each nForm In Forms
    Unload nForm
Next
End Sub

---

Cheers Chris, works a treat