500分求解决方案及代码，先贴在论坛上，先送100分

Question

帮你up
你已经有思路了
自己写不就得了

Answer 1

做一组图像Start为真时，控件的picture 属性变换以达到动画效果
public property let start(New_start as boolen)
if new_start=true then
 ' 循环显示图像以造成动画效果 
 for x=0 to6
   usercontrol.picture=pic(x).picture
 next
 ' 设为第一帧图像
else
   usercontrol.picture=pic(0).picture
end if
m_start=new_start
change  property("start")
end  property

Answer 2

有没有高手呀！！！！！！！！！！！！！！！！！！