Pausing/Stopping a gif using the web browser insert

Hi

Im probably getting way ahead of myself here, but i have 2 animations in an excel (a smiley face and a sad face) that i want to animate on a command click, thats easy enough, but they dont stop!

Is there a way to get them to animate for only 5 seconds or so, and do they hide or dissapear once they have? when you click on the design mode the web browser goes blank, and if this is the case on a puase or stop thats exactly what i want.

If anyone knows could you let me know please, thanks

Dan

I have go it to stop by using

Please Login or Register  to view this content.

But need something before im guessing maybe loop before it stops?

This is the closest i have got and still doesnt work?

Private Sub CommandButton1_Click()
Application.OnTime Now() + TimeValue("00:00:05")
Sheet1.WebBrowser1.Navigate ("http://www.animated-gifs.eu/emoticons/0041.gif")
End Sub