21-02-13, 04:52 AM
التعديل سيكون على كود البطن فقط
إقتباس :On Error Resume Next
If ListBox1.SelectedIndex + 1 = ListBox1.Items.Count Then
ListBox1.SelectedIndex = 0
Else
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If

