Slide d'immagini

[p73]

Mi è stato suggerito questo codice per creare uno slide d'immagini prese da una determitata cartella. Quindi ho un commad button dove inserisco questo codice:

Private Sub cmdSlide_Click()
Dim nomefile As String
Dim finito As Boolean
Dim clock As Long

Label1.Visible = False

'<< Carica il percorso dove si trovano i file *.JPG
nomefile = Dir("C:\ImgSpot\*.jpg", vbNormal)
'<< Carica le immagini da visualizzare
Picture1 = LoadPicture("C:\ImgSpot\" & nomefile)

'<< Inizio Timer
clock = Timer
finito = False

'<< Ripristina le impostazioni a seconda delle dimensioni della foto
RidimensionaForm
CentraComando

While Not (finito)
    '<< Clock + x (x è l'intervallo di sequanza immagini)
    If (Timer >= (clock + 3)) Then
        nomefile = Dir
        If nomefile = "" Then
            '<< Questa funzione si scontra quando non ci sono più i
            '<< file immagini da leggere allora termina l'evento Timer
            finito = True
        Else
            clock = Timer
            Picture1 = LoadPicture("C:\ImgSpot\" & nomefile)
            RidimensionaForm
            CentraComando
            Picture1.Refresh
        End If
    Else
        '<< Ritorna nuovamente al programma
        DoEvents
    End If
Wend

End Sub

e fin qui mi funza.
Il fatto è che mi fa la slide delle immagini e poi mi ritorna al programma...infatti c'è l'struzione DoEvents...

Come faccio a ciclare in modo continuo la sequenza delle immagini, è cioè tutte le immagini presenti in quella cartella in modo continuo.
Mi sapreste dire come modificare il codice.

Grazie!

[Grumpy]

Secondo me dovresti fare, nell'ordine, le seguenti cose:

1) leggere il regolamento e conseguentemente indicare il linguaggio nel titolo;
2) buttare via il codice che... "ti è stato suggerito";
3) provare a scrivere autonomamente il programma con le seguenti indicazioni:

a) usare un ciclo Do While e la funzione Dir per riempire un array con i nomi dei file immagine;
b) usare un controllo Timer (da non confondere con la funzione omonima);
c) nell'evento Timer del controllo Timer incrementare un indice e visualizzare l'immagine corrispondente;
d) quando si supera il valore massimo dell'indice, ripartire dal primo.

Nel codice che hai postato si parla impropriamente di "evento Timer" e di "ritorno al programma" grazie a un DoEvents.

[p73]

...non ciò capito niente...comunque, mi impegnerò e ti farò sapere...grazie!