Timer1被添加到屏幕上。屬性間隔=10(自行調整)
私有子命令1_Click()
定時器1。啟用=真
末端接頭
私有子定時器1_Timer()
如果正確(現在,1)Mod 2 & lt;& gt那麽0
圖片1。picture = load picture(" F:\ mydoc \ My Pictures \ a . gif ")
其他
圖片1。picture = load picture(" F:\ mydoc \ My Pictures \ b . gif ")
如果…就會結束
圖片1。恢復精神
末端接頭