我从网上下载了vb6.0精简版，我想timer事件每隔一秒就执行一次，但为什总是执行一次就停止了，而不是重复执行？？？ ,高手看看是不是代码出了问题。给点意见
-----------------------------------------------------------------------------
这是界面 ，【】内为这个控件的名称,//内为这个控件的caption.
  
  /倒计时时间（s）/【label3】       //【text1】
 / 还剩时间（s）/【label1】        //【label2】

          / 开始/【command1】        【timer1】
--------------------------------------------------------------------------
 timer的属性设置
            timer1.inter=1
            enabled=false
-----------------------------------
代码如下:
-----------------------------------------------------------------
Private Sub Command1_Click()
If Text1.Text = "" Then MsgBox "请输入秒数！", vbInformation, "操作提示"
Timer1.Enabled = True
End Sub
-------------------------------------------------------
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
-----------------------------------------------------------
Private Sub Timer1_Timer()
Dim ss As Integer
ss = Val(Text1.Text)
ss = ss - 1
Label2.Caption = ss

If ss > 0 Then Timer1.Enabled = True

If ss = 0 Then
Timer1.Enabled = False
Label2.Caption = 0
End If
End Sub
--------------------------------------------------
我已经尽量写清楚了，如果有必要请+q  457561647

ss = Val(Text1.Text)
ss = ss - 1
Text1.Text = ss
Label2.Caption = ss

关注中！！！！

谢谢2楼的，我试了，果然能行，但我想不明白：

ss = Val(Text1.Text)
ss = ss - 1
Text1.Text = ss
Label2.Caption = ss

为什么在第三行还要+上"Text1.Text = ss"??

你每次从 Text1.text 中取值，
而不去改变 text1.text 中的值，那么每次取到的值都是一样的。
计算出来的 ss 也就是一样的值。
一样的值显示出来，你能看出执行了几次不？？？
所以老认为只执行了一次。