加入这一段：
Private Sub Form_load()
Timer1.Enabled=False
End Sub

如果是输入就立马开始倒计时：
Dim CNum As Integer  ';定义模块级变量CNum
Private Sub Text1_Change()
CNum=Text1.text
Timer1.enabled=true
End Sub
Private Sub Timer1_Timer()
If Val(CNum) > 0 Then
Label1.Caption = CNum
Else
Timer1.Enabled = False
End If
If Val(Label1.Caption) > 0 Then
Label1.Caption = Label1.Caption - 1
Else
Timer1.Enabled = False
End If
End Sub

如果是要点按钮才开始，就把那两行代码写在按钮的Click事件里面