(30-05-21, 07:51 PM)Fareed كتب : وعليكم السلام ورحمة الله وبركاته

استخدم Mod لمعرفة باقي القسمه
مثل
Dim m = (SelectedIndex+1) Mod 5
اذا كان m يساوي صفر توقف التايمر لمدة دقيقه

(30-05-21, 10:52 PM)Fareed كتب : لا اعرف ما هو درو التايمر في الكود عندك

لكن هذا الذي اقصده
If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
    'Timer1.Stop()
    Label1.Text = ("تم المرور على كل عناصر الليست بوكس")
    ExitSub
End If

Dim m = (SelectedIndex+1) Mod 5

If m= 0 Then
   Threading.Thread.Sleep(60000)
Else
    ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If

(31-05-21, 01:41 AM)Fareed كتب : ضع 2 تايمر
بحيث الاول مضبوط على 5 دقايق
والثاني على 10 دقايق
وكل واحد منهم يوقف نفسه ويشغل الاخر
مثال
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    Timer1.Interval = 300000
    Timer2.Interval = 600000
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
    Timer1.Stop()
    Timer2.Start()
End Sub

Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer2.Tick
    Timer2.Stop()
    Timer1.Start()
End Sub

(31-05-21, 11:56 PM)سعود كتب :

قد لا يكون تماما مثل المطلوب وانما قد يساعد .. فقط مثال تصور للفكرة.