多线程BUG

诡异的Bug
未经处理的Win32异常 ( 在KernelBase.dll中浮点不精确 )
代码:
ListenTHD = CreateThread(ByVal 0&, ByVal 0&, AddressOf ListenThread, ByVal 0&, ByVal 0&, ListenTID)
Public Sub ListenThread() '子线程1
'***********************************（重要！）VB6线程环境初始化*************************************************
CreateIExprSrvObj 0&, 4&, 0& 'VB6运行库初始化
CoInitializeEx ByVal 0&, ByVal (COINIT_MULTITHREADED Or COINIT_SPEED_OVER_MEMORY) 'COM组件初始化
InitVBDLL '诱导VB6运行库内部其他部分的初始化
'***********************************（重要！）VB6线程环境初始化*************************************************
Dim ConnectFD As Long, Temp As Long
CMD.WriteLine "Listen Start"
Do
MsgBox "循环没事" '调试用
ConnectFD = accept(ListenFD, Null, Null)
'症状:调用完accept后出现
'工程1已停止工作
'用VS调试器报浮点不精确
MsgBox "Accept没事" '调试用
If ConnectFD < 0 Then
CMD.WriteLine "Accept Filed!"
CMD.WriteLine "Listen End"
GoTo EndSub
ElseIf ConnectFD > 0 Then
CreateThread ByVal 0&, ByVal 0&, AddressOf UserThread, ConnectFD, ByVal 0&, Temp
End If
Loop
EndSub:
CoUninitialize '卸载COM组件（省掉也不会影响稳定性，但可能造成句柄或内存泄漏。为了养成好习惯，还是写上）
End Sub