Antonio, That's what I did now. First I used the code in sockcli.prg and than sockserv.prg. So first call oSocket:SendData and then oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( ...