[3booody]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
   Dim i As Integer = 0
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If ListBox1.Items.Count > 1 Then
           If i > ListBox1.Items.Count - 1 Then
               i = 0
           End If
           ListBox1.SelectedIndex = i
           i += 1
       End If
   End Sub