Ayuda con listbox

[Aioros-jms]

Hola es algo así:

Código:

   Dim x As Integer

   Private Sub Timer1_Timer() 
         If x = List1.ListCount Then
             x = 0
         End If
         Text1.Text = List1.List(x)
         x = x + 1  
   End Sub

Al timer como ya te indicaron ponle al interval 10000

Saludos!!!