[allobaed]

الاخوة الكرام
السلام عليكم 
لدي الكود التالي احاول به ان اغلق جميع الشاشات في المشروع الا الشاشة الرئيسية  السبب ( ارجو الانتباه)
انني اريد عندما اغلق شاشة و فتح شاشة اخرى  يتم الاغلاق كل الشاشة المفتوحة سابقا بقاء الشاشة الرئيسية و الشاشة الفتوحة اخيرا 

فهل ينفع الكود التالي 
Private Function CloseAllForms()
On Error Resume Next: Err.Clear

Dim zControl As Control

For Each zControl In Controls
    If TypeOf zControl Is MDIFomes Then zControl.Close = False
    If TypeOf zControl Is Fomes Then zControl.Close = True
    
Next

End Function
و لكل مني جزيل الشكر