All forms close

I was wondering if someone would be able to tell me how to get all forms to close when the main form closes without using a MDI style program. I wanted to make the program Open. so they can open multiples of many of the forms if they so wished.

Code:

---

Dim f as Form

For Each f In Forms
      Unload f
Next f

---

Thanks, i will try that when i get home