vb6不支持多线程啊！！虽然在编译器里可以运行！！但总是崩溃！！编译成exe文件后，多线程根本不会启动！！网上也是这么说的！！大家有什么高见啊！！

胡扯!!!!!!!!!!!!!!!!!!

绝对支持,只是不好写

知道你還和，怪誰

是啊，VB对多线程是挺麻烦的。用VC等工具就容易多了

涉及到的API如 CreateThread

搞什么，老大？
你是不是VC很厉害？

'在form中添加一个按钮
private hThread as long
Private Sub Command1_Click()
    hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread, ByVal 0&, ByVal 0&, hThreadID)
    CloseHandle hThread
End Sub
Private Sub Form_Unload(Cancel As Integer)
    If hThread <> 0 Then TerminateThread hThread, 0
End Sub

'添加一个module
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public hThread As Long, hThreadID As Long
Public Sub AsyncThread()
    Sleep 10000
    hThread = 0
End Sub

运行时可通过任务管理器查看线程数

多谢楼上！！！我去试一下哦！！！！

我试了一下！！生成exe后还是不能运行！！！我不知道那错了！！！！程序直接崩溃了。。截张图如下：