grazie per il suggerimento, ma ho risolto così:
codice:
Private Sub TMRanimazione_Timer()
I = 1
Do Until I > 6
  IMG1.Picture = LoadPicture(App.Path + "\immagini\lastd2_0" & I & ".jpg")
  IMG1.Refresh
  I = I + 1
Loop
End Sub