我编了一个小程序，就是在一个表单上添加了几个小动画（.gif），当按“A”键时，第一个动画出现。当按“B”键时，第二个动画出现，依此类推。
可是第一天好好的，第二天运行表单时，表单可以运行，但是按A,B键，动画却不出现。对程序动动，就是删除，再写入，和第一次写的一样。又好用了。
只后，还会出现运行表单，动画不出现的现像。

求大师指点啊！！感谢！！
我是个初学的爱好者.

上传文件看看

大概是楼主程序编制好了之后尚未烧香磕头吧

那该怎办呢

在表单的Init里
thisform.image1.Visible = .F.
thisform.image2.Visible = .F.
thisform.image3.Visible = .F.
thisform.image4.Visible = .F.

thisform.timer1.Enabled = .F.
thisform.timer2.Enabled = .F.
thisform.timer3.Enabled = .F.
thisform.timer4.Enabled = .F.

thisform.image1.Picture ="D:\我的资料库\Documents\Visual FoxPro 项目\1\dh1.gif"
thisform.image2.Picture ="D:\我的资料库\Documents\Visual FoxPro 项目\1\dh2.gif"
thisform.image3.Picture ="D:\我的资料库\Documents\Visual FoxPro 项目\1\dh3.gif"
thisform.image4.Picture ="D:\我的资料库\Documents\Visual FoxPro 项目\1\dh4.gif"

在表单的Keypress里
LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL lc
      lc=CHR(nkeycode)
 DO case
      CASE LC=="A"      
        THISFORM.image1.Visible=.T.
        thisform.timer1.Enabled = .T.
    CASE LC=="B"
      
        THISFORM.image2.Visible=.T.
        thisform.timer2.Enabled = .T.
    CASE LC=="C"
   
        THISFORM.image3.Visible=.T.
        thisform.timer3.Enabled = .T.
    CASE LC=="D"
      
         THISFORM.image4.Visible=.T.
         thisform.timer4.Enabled = .T.
endcase         
此外还有4个时钟
Timer1的timer里
thisform.image1.Visible = .F.

CASE LC=="A"      
        THISFORM.image1.Visible=.T.
        thisform.timer1.Enabled = .T.

Timer1的timer里
thisform.image1.Visible = .F.

image1.Visible=.T.跟着又image1.Visible=.F.，这样起什么作用？

根据按键打开一个图片和定时器之后要将其它图片设置成不可见，否则程序运行的结果就很难预测。
定时器控件应该有一个就足够处理了，没有必要每个图片使用一个。