如何不让线程数不断增加？
本帖最后由 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
