CloseForm

Function CloseAllForms()

Dim OpenForm As Form

For Each OpenForm In Forms
Unload OpenForm
Next OpenForm

End

End Function