كيف أسترجع عناوين كل الForms

ممكن تسوي حلقة تكرارية بشرط

لكن كيف؟مع العلم بأن كل Form له إسم لا يشبه الآخر أي أني لم أترك إسمائهم كما بالمثال الذي أوردته في المشاركة الآولى

شكراً لك أخي العزيز

هذا هو الكود

Private Sub Command1_Click()
 Dim M_Form As Form
    List1.Clear
    For Each M_Form In Forms
    
            List1.AddItem M_Form.Caption
            
            DoEvents
    Next
End Sub

السلام عليكم

زيادة على مداخلة الاخ Prof ومشكور .

سوف تحصل فقط على الفورمات أي النماذج فقط العاملة , يعني لو عندي 3 فورمات وشغلت الاول والثاني , هذا الكود سوف يرجع لي فقط أسماء أو عنواين الفورم الشغال فقط , يعني الفورم الذي لم استدعيه أو ما زال ليس قيد التشغيل سوف لن يتم أسترجاع أسمه أو عنوانه .

تستطيع أيضا أخي الحبيب وضع التالي أيضا وهي نفس الكود لكن للأيضاح فقط

For Each M_Form In Projects.Forms

مشكور أخي العزيز ألف شكر لك

لكن ما جبلي إلا 3 Forms سأحاول في هذا الأمر

مشكور