1.在图片上放置若干个label控件，CAPTION设置为空，背景色为白色。
2.表单上放置timer控件，设置合适的interver值。
timer事件处理代码：
seep=5    &label的height值是seep的整数倍
IF thisform.label1.Height >0 then
FOR i=1 TO 4  &4是放置的label数量
j=ALLTRIM(STR(i))
thisform.label&j..height=thisform.label&j..height-seep
NEXT i
endif
IF thisform.label1.Height =0
thisform.timer1.Enabled =.f.
endif