急!!一道VB题,关于计时器,全积分赠送,在线等.

就是用计时器进行计时,Command1是开始计时,Text1显示计时时间.
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 1
Timer1.Enabled = False
Case 0
Timer1.Enabled = True
End Select
End Sub
Private Sub form_load()
Text1.Text = ""
End Sub
Private Sub timer1_timer()
Static s As Integer
s = s + 1
Text1.Text = s
End Sub

我看了答案如上,但是在VB中测试却提示"过程声明与同名事件或过程的描述不匹配",似乎是Private Sub Command1_Click(Index As Integer)这个语句的问题.
到底怎么回事?如何解决?望速答,明天要上机考试了.谢谢!
谢谢你们的回答
xiaoanpeng这种方法是对的,不过题目要求不得修改原有的程序.
Private Sub Command1_Click(Index As Integer)
` Select Case ?
Case 1
`Timer1.? = False
Case 0
`Timer1.? = True
End Select
End Sub
Private Sub form_load()
Text1.Text = ""
End Sub
Private Sub timer1_timer()
`? s As Integer
s = s + 1
Text1.Text = s
End Sub
以上是原题,只可以填写问号处的,我已经按照答案填进去了,但就是出现

一道VB题!!急!!! VB 计时器 ^ ^ 一道关于打点计时器的习题。 急求助一道VB编程题(关于评分程序) 关于VB的一道题 vb中怎么编写计时器与进度条结合 急求！！！ 求vb计时器代码 vb编程做计时器 vb计时器问题 急！！！！！！！！！！！关于VB题