[kiki]

هذا كود كمثال لما تطلبه لكن يعتمد على ما تريده تماماً
قم باضافة كمثال عدد 2 من ListBox
وضع الكود التالى فى حدث الزر

كود :

       Dim nb, reset, i, ii As Integer
       nb = 3 ' عدد مرات التكرار
       reset = 4 ' اخر رقم للعد و 4 تعنى من 1 الى 4
       For i = 0 To nb - 1
           For ii = 0 To reset - 1
               ' فقط استبدل السطرين هنا بكود الاضافة لقاعدة البيانات مع استخدام كلاً من i+1 و ii+1
               ListBox1.Items.Add(i + 1) ' بخصوص i + 1 تعنى الترقيم المتكرر للرقم مثل 1111
               ListBox2.Items.Add(ii + 1) ' وهنا ii + 1 تعني العد من 1 الى الرقم المحدد مسبقاً
           Next
       Next