[elgokr]

وعليكم السلام ورحمة الله وبركاته

انت لا تحتاج لوجود Timer

فى عمل هذا الكود لفكرة الدقيقة

بهذه الطريقة انت تعمل مشكلة كبيرة ستادى

الى ان يكون البرنامج معلق ولا يعمل

لكونه يقوم بتنفيذ كود وليكن For متعدد المرات

كلما بداء Timer فى التحديث

كل ما تحتاج فعله هو استخدام هذا الكود

كود :

Threading.Thread.Sleep(60000)

ولتنفيذ هذا السطر من الكود كل 4 تمريرة

فكل ما عليك فعله ان تجعل وضع الكود التالى

فى اى حدث مثل زر او ما شبه وليس Timer

كود :

       Dim i, ii As Integer
       For Each itm As String In ListBox1.Items
           i += 1
           MsgBox(itm)
           If i = ii + 4 Then
               ii = i
               Threading.Thread.Sleep(60000)
           End If
       Next

اذا كنت تريد كل 3 بدلاً من 4

فقط غير رقم 4 فى سطر IF الى 3

ودائماً اجعل كود شطر IF نهاية الكود المطلوب تنفيذه

كما هو مبين فى الكود بالاعلى

نفس الكود بطريقة اخري

كود :

       Dim i, ii As Integer
       For iii As Integer = 0 To ListBox1.Items.Count - 1
           i += 1
           MsgBox(ListBox1.Items(iii))
           If i = ii + 4 Then
               ii = i
               Threading.Thread.Sleep(2000)
           End If
       Next

تحياتى لك

وتمنياتى لك التوفيق