Visual Basic 6 - immagine in movimento

ho creato un minigioco in cui è presente un omino che cammina, ma durante lo spostamento avviene uno sfarfallio fastidioso sull'immagine in movimento

qui [url]
andryu89.altervista.org/l^2%20p.rar[/…] per vedere un esempio

graze per l'attenzione

puoi postare il sorgente? non ho vb installato.

Select Case KeyCode
        Case vbKeyUp
            imgOmen.Top = imgOmen.Top - imgOmen.Width \ 3
            If x Then 'per fargli muovere un piede, piuttosto che un altro
                imgOmen.Picture = LoadPicture(Direc & "re-dx.gif")
            Else
                imgOmen.Picture = LoadPicture(Direc & "re-sx.gif")
            End If
            imgOmen.Refresh
            Sleep 75
            imgOmen.Top = imgOmen.Top - imgOmen.Width \ 3
            imgOmen.Picture = LoadPicture(Direc & "re.gif")
            imgOmen.Refresh
            Sleep 50
.........

questo è il succo, ciao e grazie

è in un timer con intervallo di..?
E UN PICTUREBOX O UN IMAGEBOX?
proprietà autoredrow? T / F?

è un image che si muove al premere delle frecce, quindi niente timer(solo uno sleep per bloccare l'immagine a metà e l'autoredraw c'è solo nelle picture a cui però non so togliere lo sfondo e cmq viene peggio.....

nell'archivio c'è un exe per vederlo anche senza vb

il 90% delle volte lo sfarfallio e dovuto alla velocità di ripetizione dell'azione. prova a associare una variabile booleana prima e dopo al movimento e impedisci di ripeterlo finchè l'azione non è finita. fammi sapere.

capito, effettivamente distanziando i movimenti si azzera l'effetto, ma diventa troppo lento....
intanto l'ho abbassato rendendolo invisibile quando si sposta....
se ti viene in mente altro, dimmelo pure, se no fa niente, sono già riuscito a diminuirlo entro una fascia + sopportabile

della serie

public sub passoavanti()
if inmovimento = false then
inmovimento = true

...

inmovimento =false
end if
end sub