Ayuda con listbox

[gateous]

Buenas... Tengo un problemita

Tengo un listbox con varios elementos, quiero que cada 10 segundos me aparezca el primer elemento en un textbox, luego de los 10 segundos me aparezca el segundo y asi sucesivamente... Cuando llegue al último elemento que regrese al primero.

Alguien sabe como hacerlo en Vb 6.0 ???

Muchas gracias.

Saludos desde Colombia.

[David]

Puedes usar un Timer con Interval 10000.

En ese evento ve sumando una variable y de acuerdo a ello obtén el elemento del ListBox con ListBox1.List(Variable) asignándolo al TextBox correspondiente.

[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!!!

[gateous]

Muchas gracias Aioros-jms ya lo pude solucionar... Hasta pronto