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，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
报这个错:
compile Error
sub or function not defined
和我引用这个库函数有关系吗？
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
