UnloadallForms

Public Sub UnloadAllForms()
Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End Sub

'It is best to call this procedure from the unload event

'of your main form.