Ciao a tutti,io ho una sequenza di immagini che gira ogni 5sec,questo è il codice:

Sub shows()
Dim k, s As String
Dim i, j, m As Integer
For i = 0 To Lista.Items.Count - 1
k = Lista.Items.Item(i)
s = k
pb1.Image = Image.FromFile(s)
Thread.Sleep(5000)
Next
End Sub

Questo codice qui prende la sequenza direttamente da una listbox

Il problema è che arrivato all'ultima immagine dell'elenco si ferma e non riparte dall'inizio...ho provato con Do Loop o magari con una condizione ben precisa utilizzando If ma non va...