(1)在表单的初始化部分有
PUBLIC FH
FH=1
THISFORM.TIMER1.INTERVAL=20
(2)在TIMER1.TIMER里有
FH=IIF(THISFORM.IMAGE1.TOP<=0,1,IIF(THISFORM.IMAGE1.TOP+THISFORM.IMAGE1.HEIGHT>=THISFORM.HEIGHT,-1,FH))
THISFORM.IMAGE1.TOP=THISFORM.IMAGE1.TOP+FH
THISFORM.IMAGE2.TOP=THISFORM.IMAGE2.TOP+FH
THISFORM.IMAGE3.TOP=THISFORM.IMAGE3.TOP+FH &&保持同步变化