VB - better code for program exiting

better code for program exiting:

Code:

---

Dim frm As Form

For Each frm In Forms

Unload frm

Set frm = Nothing

Next

' Not really needed...

End

---