VB Code:
  1. Dim frm as Form
  2.  
  3. For Each frm in Forms
  4.  
  5. Unload frm
  6.  
  7. Set frm=Nothing
  8.  
  9. Next
  10.  
  11. End