Animazione che non si anima

[SuperMariano81]

ciao a tutti ho sei file jpg contenuti nella directory dell'applicazione/immagini
dovrei animarli in una picture (in quanto mi permette il resize) solo non riesco a fare funzionare questo codice:

Private Sub TMRanimazione_Timer()
I = 1
Do Until I = 6
    IMGanimz.Picture = LoadPicture(App.Path + "\immagini\lastd2_0" & I & ".jpg")
    I = I + 1
Loop
End Sub

Nella form do all'intervallo un valore di 300 millisecondi (se non sbaglio l'unità di misura!)