Public Function Workthread (ByVal Param As Long) As Long 
 ThreadInit.InitThread 
 Dim DBuff As String 
 Dim ReadBuff As String 
 Dim sRec As Long 
 tID = GetCurrentThreadId 
 Add_DataClientStore ClientCount, nRet, tID 
 WriteLog "New Client Arrive with Socket ID" & nRet & "On Thread ID:" & tID 
 Do''While True 
 DBuff = Space (4096) 
 ClientStore (ClientCount). Sock_ID = nRet 
 sRec = recv (ClientStore (ClientCount). Sock_ID, ByVal DBuff, Len (DBuff), 0) 
 If sRec <> 0 And sRec <> SOCKET_ERROR Then 
 ReadBuff = ReadBuff & Left (DBuff, sRec) 
 WriteLog "Data Received.:" & ReadBuff & "Socket ID ..." & ClientStore (ClientCount). Sock_ID 
 End If 
 DoEvents 
 Loop 
 End Function

Dim NonBlock As Long 
 NonBlock = 1 
 If ioctlsocket (nRet, FIONBIO, NonBlock) = SOCKET_ERROR Then 
 WriteLog "Socket Cannot Set NoBlocking" 
 End If

Public Function Workthread (ByVal Param As Long) As Long 
 Const MAX_BUFFER_LENGTH As Long = 8192 'Normal = 8192' MAX = 65536 
 Dim Buffa (1 To MAX_BUFFER_LENGTH) As Byte 
 Dim dBuff As String 
 Dim ReadBuff As String 
 Dim sRec As Long 
 tID = GetCurrentThreadId 
 Add_DataClientStore ClientCount, nRet, tID''/ / Store Data in a public type (sockid, threadid) 
 WriteLog "New Client Arrive with Socket ID" & nRet & "On Thread ID:" & tID''/ / write data to listbox 
 Do''While True 

 ClientStore (ClientCount). Sock_ID = nRet 
 sRec = recv (ClientStore (ClientCount). Sock_ID, Buffa (1), MAX_BUFFER_LENGTH, 0 &) 
 ReadBuff = StrConv (Buffa, vbUnicode) 
 [b]dBuff = Left $ (ReadBuff, sRec) [/b]
 WriteLog "Data Received.:" & DBuff & "Socket ID ..." & ClientStore (ClientCount). Sock_ID 
 End If 
 Loop 
 End Function