怎么不让线程数不断增加

如何不让线程数不断增加？
本帖最后由 bcrun 于 2012-08-31 20:39:36 编辑

Private Sub Form_Load()
    Me.Show
    Timer1.Interval = 1000: Timer1.Enabled = True
End Sub

Function A()
    Dim objScrCtl As Object
    Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
    objScrCtl.Language = "JavaScript"
    objScrCtl.Eval "var a;"
    Set objScrCtl = Nothing
End Function

Private Sub Timer1_Timer()
    A
End Sub

不知道为什么,objScrCtl 释放不了,线程数不断增加，一直到内存占用完毕，如何让他用完彻底释放，不可以用全局变量，因为是在function里用的
[解决办法]
你的环境和我有什么不同嘛?

运行你的代码,编译了还是3个线程,没看见出现多个线程的时候.更别说线程数一直增加了.