设置timer 居然 内存溢出

Question

程序名称:SoapPro 出现错误,版本0
错误发生时间:2007-10-11 14:55:44
错误模块名称:clsThread20.Let_Enabled
错误代码:7
错误描述:内存溢出
---------------------------------------------------
代码如下:Public Property Let Enabled(ByVal vNewValue As Boolean)
    On Error GoTo ErrLabel '打开错误陷阱
    '------------------------------------------------
    fThreadForm.Timer1.Enabled = vNewValue  '错误发生点
    '------------------------------------------------
    Exit Property
    '----------------
ErrLabel:
    '跳出错误对话框，并保存错误信息
    Call SaveErrLog("clsThread20", "Let_Enabled")
    Resume Next
End Property
请问,为什么设置timer的enabled都会内存益出呢???
到底什么原因，小弟折腾了很久一直没弄懂,请大侠们帮忙``

Answer 1

Timer1事件不能用在属性设置里头。Public Function TimerEnabled(vNewValue As Boolean) 
    On Error GoTo ErrLabel  '打开错误陷阱 
     '------------------------------------------------ 
    fThreadForm.Timer1.Enabled = vNewValue   '错误发生点 
     '------------------------------------------------ 
    Exit Function 
     '---------------- 
ErrLabel: 
     '跳出错误对话框，并保存错误信息 
    Call SaveErrLog("clsThread20", "Let_Enabled") 
    Resume Next 
End Function 

Answer 2

fThreadForm.Timer1.Enabled = vNewValue   
不能这样或者你看的程序在其他的地方设置了 宏 vNewValue 代表 TRUE