Private Sub C1_Click(Index As Integer)
    Select Case Index
        Case ？
            Timer1.Enabled = False
        Case 0
            Timer1.Enabled = ？
    End Select
End Sub
Private Sub Timer1_Timer()
    Text1.Text = ？
End Sub