17-10-12, 12:20 AM
كاتب الموضوع : AhmedEssawy
كود :
Public Sub UnloadAllForms()
Dim objForm As Form
' Loop through all the forms and unload each
For Each objForm In Forms
Unload objForm
Next
Set objForm = Nothing
End Sub