30-05-21, 10:52 PM
لا اعرف ما هو درو التايمر في الكود عندك
لكن هذا الذي اقصده
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
لكن هذا الذي اقصده
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
