timer代码如下:(向左走)
IF thisform.label2.Left<0-thisform.label2.Width
thisform.label2.Left=thisform.label2.Width+2
thisform.label2.Left=thisform.label2.Left+600
ELSE
thisform.label2.Left=thisform.label2.Left-1
ENDIF
timer
向右的应用如下修改
if thisform.label2.Left>500
thisform.label2.Left=thisform.label2.Left-600
else
thisform.label2.Left=thisform.label2.Left+1
endif