Oppure

Loading
09/01/10 13:24
Alfonso
Nella form principale (per es. frmMain) metti
Private Sub Form_Unload(Cancel As Integer)

    Dim i As Integer
    While Forms.Count > 1
       i = Forms.Count - 1
        Unload Forms(i)
    Wend
    Set frmMain = Nothing

End Sub

E se vuoi esagerare in ogni form che hai:
Private Sub Form_Unload(Cancel As Integer)

    Set NomeDelForm = Nothing

End Sub

aaa