WHO REMEMBER this old window 1

[sal21]

In effect i need to simulate the animation of the movement of withe icon from x,y to xx,yy, just one cicle.

start from x,y to xx,yy

note:
dont consider the dir icon and trash icon
i just have a withe icon in a form in a position x,y, is an image1/image

 

[strongm]

So the 'old window' isn't really relevant? Since it is an AVI animation, whilst you just want to animate an image control from one place to another. Pretty straight forward, try something like

Option Explicit
Dim dx As Double
Dim dy As Double
Dim maxtime As Long
Dim aniControl As Control
  
Private Sub Command1_Click()
    BuildAnimation Image1, 24, 56, 576, 56, 2000, 60
End Sub

Private Sub BuildAnimation(myControl As Control, x, y, xx, yy, Optional mtime As Long = 1000, Optional granularity As Long = 100)
    Set aniControl = myControl
    maxtime = mtime
    dx = (xx - x) / (mtime / granularity)
    dy = (yy - y) / (mtime / granularity)
    aniControl.Move x, y
    aniTimer.Interval = granularity
    aniTimer.Enabled = True
End Sub

Private Sub aniTimer_Timer()
    Static looped As Long
    If looped = 0 Then aniControl.Visible = True
    If looped < maxtime Then
        aniControl.Move aniControl.Left + dx, aniControl.Top + dy
        looped = looped + aniTimer.Interval
    Else
        aniTimer.Enabled = False
        aniControl.Visible = False
        looped = 0
    End If
End Sub

Private Sub Form_Load()
    Form1.ScaleMode = vbPixels
End Sub

And that'll end up looking pretty much like this animation

 

[sal21]

sTRONGM, tks!!!!!

 

[sal21]

HI Strong,
what are the parameters to calculate the distance between the beginning and the end?
is what is the parameter to adjust the speed?
The path/distance in my example is too long ...

 

[strongm]

the mtime parameter is the duration of the animation in milliseconds. The code already does all the heavy lifting concerning the distance between start and end points

 

[2009luca]

Ok
But i need to use in form and not over control.
I see a control similar a button, where the animation run.
I need to set the initial and the and position of the animation on a form.

 

[strongm]

It isn't over a control. That's me faking one with a few graphic lines drawn directrly onto the form. Have you actually tried the code? At all?

 

[2009luca]

Yes, tried.
With your code the finish of animation go out the form!
I can upload my zipped project?

 

[strongm]

I despair. You list yourself as a programmer, and yet somehow struggle with basics - yes, the animation will "go out the form" if the form is too small. This can be fixed by either changing the start and/or endpoints of the animation (x,y an xx,yy) to ensure they lie inside the form, or by making the form bigger
.