如果你觉得你的exe是多线程,可以用:
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
...
Public Sub s_DoTask1(ByVal ID&)
'不能在多线程中使用GetTickCount,否则闪退
dblN(1) = f_add(1, 25000000)
Sleep -1
End Sub
Public Sub s_DoTask2(ByVal ID&)
dblN(2) = f_add(25000001, 50000000)
End Sub
Public Sub s_DoTask3(ByVal ID&)
dblN(3) = f_add(50000001, 75000000)
End Sub
Public Sub s_DoTask4(ByVal ID&)
dblN(4) = f_add(75000001, 100000000)
End Sub
...
运行后,观察到会卡住s_DoTask1,而其它线程不会被卡,证明是多线程。ActiveX多线程会被卡。