vb在普通模块中定义class程序为什么会崩溃？该如何解决

vb在普通模块中定义class程序为什么会崩溃？
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 Long

Public 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

[解决办法]
在窗体模块中调用一下，看是否也崩溃？如果是，就有标准模块无关，而是代码本身的问题。
[解决办法]
从上面的代码来看没什么问题,可以在标准模块里面写的.
应该是你的类模块里的代码不对
[解决办法]
用了多线程了还叫普通模块！？

VB按照单线程的方式创建类，你却在多线程中用，当然会崩溃的。
多线程要用类就用 ActiveX exe 工程。