Unload All Running Forms

'Add 1 CommandButton To Your Form.
'Insert the following code to your form:

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