try this..
it should work...
Code:
Private Sub cmdSubmit_Click() 
Dim F As Form
For Each F In Forms
Unload F
Next F
End Sub