从网上找的多线程源码，运行后发现经常闪退，新建线程的计算频率越高闪退越快，有时不高也会闪退，是vb的缺陷还代码的缺陷？，代码见楼下。

Option Explicit
Dim WithEvents m1 As clsThreading
Dim WithEvents m2 As clsThreading
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
'启用线程
Set m1 = New clsThreading
m1.CreateThread 1, CREATE_ENABLED
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
'结束线程
m1.TerminateCurrentThread
Set m1 = Nothing
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Command3_Click()
'启用线程2
Set m2 = New clsThreading
m2.CreateThread 2, CREATE_ENABLED
Command4.Enabled = True
Command3.Enabled = False
End Sub
Private Sub Command4_Click()
'结束线程2
m2.TerminateCurrentThread
Set m2 = Nothing
Command4.Enabled = False
Command3.Enabled = True
End Sub

文字多了发不过去只好发图片了。