[vb6] creare animazione

[SuperMariano81]

Ciao ragazzi,
dovrei fare un programma
- Scarica delle immagini da internet (da un mio sito)
- Crea una animazione di queste immagini

Per il download automatico l'ho fatto senza grossi problemi (con Inet) mentre ho qualche problema nel creare le animazioni.
Per farle, uso un controllo timer che assegna ad una picture il nome dell'immagine. Se uso un controllo picutre non mi ridimensiona l'immagine, se invece uso il controllo image me la ridimensiona ma non mi sostituisce l'immagine (mi resta la prima in pratica!)
come posso fare a creare quest'animazione??!?!!?


PS ho provato ad usare la ricerca nel forum ma è KO

[axsw]

Non sò se ho capito bene ma a me funziona

Option Explicit
Dim gTrecorrente As Integer
Dim gFlagMovimento As Integer

Private Sub Form_Load()
  If gFlagMovimento = 0 Then
   gFlagMovimento = 1
  Else: gFlagMovimento = 0
'Inizializza i flag
  gFlagMovimento = 0
 gTrecorrente = 0
End If

Private Sub TmrTimer_Timer()
If gFlagMovimento = 1 Then
ImgTrecorrente.Picture = _
            Imgtrec(gTrecorrente).Picture
gTrecorrente = gTrecorrente + 1
If gTrecorrente = 17 Then
   gTrecorrente = 0
   End If
End If
End Sub

INFO:
Ho usato una casella immagine un Timer le immagini sono già caricate sul form che è diverso dal tuo caso ma se ho capito bene a te interessa lo swap delle immagini ed il codice sopra lo fà

[SuperMariano81]

grazie per il suggerimento, ma ho risolto così:

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