[RESOLVED] Help needed! DoEvents doesnt works

[RS_Arm]

Hi.
My app executes a function that takes a lot of time.
Therefor, I created a form with a little animation made with 12 icons placed in a imagelist.
Right before the execution of that function, I load that form.
The form has a timer, so each 1/2 second it changes the image in the form icon and the image of image" object.

Private Sub Timer1_Timer()
Me.SetFocus
DoEvents

Me.Refresh
Me.Image1.Refresh
i = i + 1
Me.Image1 = Me.ImageList1.ListImages(i).Picture
Me.Icon = Me.ImageList1.ListImages(i).Picture

If i = 12 Then i = 1


End Sub

What happens is that I cant see the animation "running".
In the mainForm I have this code:

'...
FormWait.Show
FormWait.SetFocus
DoEvents
verify = Generate.PS2(file)
Unload FormWait
'...

Thanks