معلش شباب بس طلب بسيط

السلام عليكم

ضع في خاصية الـTag للفورم المراد عدم إغلاقة كلمة محدد ولتكن out

نفذ الدالة التاية :

Function CloseAllFroms()

    Dim Frmloop As Form
    
    For Each Frmloop In Forms
    
        If Frmloop.Tag <> "out" Then Unload Frmloop
        DoEvents
        
    Next

End Function

فقط نفذ الدالة التالية بكتابة اسمها في حدث Click للزر مثلا او اي مكان تريد بالطريقة التالية :

CloseAllFroms

تحياتي لك

مشكور ياخوي 100/100