Public Sub UnloadAllForms()Dim Form As FormFor Each Form In FormsUnload FormSet Form = NothingNext FormEnd Sub