I know how to create an animated gif..
Public Function AniGIF1stepGo()
AniGIF1.Play
End Function

Public Function AniGIF1stepStop()
AniGIF1.Stop
End Function

Private Sub Command1_Click()
AniGIF1stepGo
End Sub

But how can i animate the gif while copying and modifying files is going on..?