如果你觉得你的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多线程会被卡。