[Ali_hassn]

احتاج كود يغلق جميع الفورم  المفتوح  دفعة واحدة ويبقي فقط الفورم Home ؟

[Shade0001]

Dim formsToClose As New List(Of Form)()
        For Each form As Form In Application.OpenForms
            If form.Name <> "home" Then
                formsToClose.Add(form)
            End If
        Next
        For Each formToClose As Form In formsToClose
            formToClose.Close()
        Next

[Ali_hassn]

شكرا لك .....

[رمضان محمد]

(( احتاج كود يغلق جميع الفورم  المفتوح  دفعة واحدة ويبقي فقط الفورم Home ؟ ))   بعد تجربه الكود اغلق كل الموجود حتى Home  ما الخطأ عندي

[Alexander Max2]

كل نافذة لها خاصية الاسم (Form1.Name) وخاصية التسمية الظاهرة(Form1.Text)..

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

يجب أن يكون اسم النافذة الرئيسية(وليس أي نافذة أخرى) بحسب الكود أعلاه هو (Form1.Name = Home) 
وبذا سيتم نجاح تنفيذ الكود ..
وعدا عن ذلك فالكود سيقوم بإغلاق كل النوافذ دون استثناء..