1,486
社区成员
发帖
与我相关
我的任务
分享
Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Sub Form_Load()
Dim threadid2 As Long
Call CreateThread(Null, ByVal 0&, AddressOf Module1.OutText1, VarPtr(0), ByVal 0&, threadid2)
End Sub
'模块:
Sub OutText1()
MsgBox "1"
End Sub
VB的多线程很不稳定,这是我个人的感觉。