Io avrei fatto così:

------------------------------------------

dim frm as form

for each frm in Forms

unload frm

next

--------------------------------------------

In pratica dichiaro una variabile Form

poi faccio un loop for each che mi salva ogni volta nella variabile

frm un form aperto. Dopo di che basta dirgli di chiudere il form

contenuto nella variabile. ciaooooooo