求大神，老师让我们把时间控件删除，或者只用一个，让我们实现相同的功能。。温度监控的功能。刚接触VB，总是达不到效果。

Question

http://yun.baidu.com/share/link?shareid=2516617498&uk=2688338297
这个是百度网盘代码的地址求大神看看。

Answer 1

仅供参考：Private Sub TimerCNO_Timer()
    On Error Goto TCNOTerr
    TimerCNOs.Enabled = False
    If TimerCNOs.Interval = 2000 Then
        TimerCNOs.Interval = 30 '未启动
    ElseIf TimerCNOs.Interval = 3000 Then
        TimerCNOs.Interval = 30 '未启动
        TimerCNOs.Enabled = True
    ElseIf TimerCNOs.Interval = 10000 Then
        TimerCNOs.Enabled = True
    End If
    Exit Sub
TCNOTerr:
    Exit Sub
End Sub