代碼:
暗淡？t？作為？日期
私人？Sub？Command1_Click()
定時器1。區間？=?1
如果？命令1。標題？=?“開始”？然後呢？t？=?時間
結束？潛水艇
私人？Sub？Command2_Click()
定時器1。區間？=?0
命令1。標題？=?“繼續”
結束？潛水艇
私人？Sub？Form_Load()
圖片1。圖片？=?load picture(" F:\ Racing car 1 . jpg ")
圖片1。自動調整大小？=?真實的
圖片1。向左？=?100
圖片1。Top？=?100
t？=?UpDown1。價值
Text1。文字？=?UpDown1。價值
文本2。文字？=?0
結束？潛水艇
私人？Sub？定時器1 _定時器()
文本2。文字？=?CDate(時間？-?t)
圖片1。向左？=?圖片1。向左？+?UpDown1。價值
如果？圖片1。向左？& gt？我。寬度？-?圖片1。寬度？-?100?然後呢？圖片1。向左？=?100
結束？潛水艇
私人？Sub？UpDown1_Change()
Text1。文字？=?UpDown1。價值
結束？子操作效果: