Animate的使用

Animate控件，可以播放动画，尤其他内置了：文件拷贝，删除，查找等都是很有用的，但是他是单线程控件，尤其如果在数据库添加数据时，数据很多，有循环。则如果不使用单独线程，则Animate的动画不动！

这时折中的解决办法：可以在数据添加循环中，添加语句：Application.ProcessMessages
就可以了。如作品：“数据库数据追加工具”

Application.ProcessMessages用法：

我想你可能还有点模糊。举个例子容易明白：假如你的窗体上有两个按钮，一个“计算”，一个“停止”，
如果你的计算是密集运算或复杂处理，当你点了“计算”钮后，你将发现“停止”按钮不会响应你的点击了，
也就是说，你无法随时使计算过程停下来。而倘若你在计算的代码中加入Application.ProcessMessages，则
你的程序就有机会响应其它的事件了。

在大量的循环运算,又不想使用多线程时,为了计算机在运算时能响应用户的操作,
又不破坏指令执行.
所起作用类似于VB中DoEvent方法.