vb在普通模块中定义class程序为什么会崩溃？

Question

Class1：
Public.........
Module1：
Public Declare Function CreateThread Lib "kernel32.dll" ( _
     ByVal lpThreadAttributes As Long, _
     ByVal dwStackSize As Long, _
     ByVal lpStartAddress As Long, _
     ByVal lpParameter As Long, _
     ByVal dwCreationFlags As Long, _
     ByRef lpThreadId As Long) As LongPublic Function MyThread1(sss As Long) As Long
     Dim cla1 As Class1
     Set cla1= New Class1'程序运行到这里就崩溃了，为什么?请师傅来帮帮忙忙？
     .........'这里引用cla1的Public也会崩溃
End Function
Private Sub Form_Load()
Dim lRet1 As Long
lRet1 = CreateThread(0, 24096, AddressOf Module1.MyThread1, 0, 0, ByVal 0)      '建立线程
End Sub

Answer 1

用了多线程了还叫普通模块！？VB按照单线程的方式创建类，你却在多线程中用，当然会崩溃的。
多线程要用类就用 ActiveX exe 工程。