****************************** * Winsock.DataArrival ****************************** LPARAMETERS bytestotal strData = SPACE(256) && Define string to pass to GetData This.Object.GetData(@strData) lcData=TTOC(DATETIME())+[|]+ALLTRIM(strData)+[|] thisform.ctList.additem(lcData) ****************************** * Winsock Connection Request ****************************** LPARAMETERS requestid #DEFINE sckClosed 0 If This.Object.State <> sckClosed This.Object.Close ENDif *!* Accept the request with the requestID *!* parameter. This.Object.Accept(requestID)