资源代码修正

资源：“可以精确到1毫秒的定时器——多媒体定时器 用户控件”可能有问题，需要修正！


Public Property Let Enabled(ByVal NewValue As Boolean)
    If NewValue Then    ' 初始化计时器控件，设置时间间隔，并开启计时器！
        m_Enabled = StartTimer(m_Interval) > 0
    Else                ' 停止计时器！2013-11-06 修正，解决计时器无法停止的重大失误！
        If m_Enabled Then m_Enabled = (StopTimer = 0) ' > 0 表示关闭成功，= 0 表示关闭失败。因此，此处该用 = 0
    End If
End Property