CloseAllForm2

Public Sub UnloadForms()
Dim frm as integer
frm = forms.count
Do While f > 0
Unload Forms(frm -1)
if frm = forms.count then exit do
frm = frm -1
Loop
End Sub