这个电梯的动画效果是怎么解决的

这个电梯的动画效果是如何解决的?
用了时间控件     源代码如何写的额。。。。。。http://www.chinacodes.net/Download.asp?ID=10474&sID=3

------解决方案--------------------
双缓冲/定时消息中改变位置、刷新/OnDraw中绘制到双缓冲,再绘制到窗口。