Клиент-сервер и Winsock....

Проблема такая: клиент устанавливает Winsock в режим прослушивания, создает на сервере ActiveX-exe компонент, в вызывает метод, и отпускает ссылку на этот объект. Объект делает очень долгие вычисления, по готовности сообщает клиенту, что данные готовы... По TCP-IP.

Тестовый вариант с двумя формами работает. Но не ActiveX. Получается так: клиент слушает номально. Сервер по готовнисти делает

WSSend.LocalPort = 0
WSSend.RemoteHost = mstrIpAddress
WSSend.RemotePort = mlngIPWorkPort
WSSend.Connect

Do While WSSend.State <> sckConnected
DoEvents
Loop

WSSend.Send strData

if err.number <> 0 then...

Все хорошо. В отладочном логе пишет, что соединился и все передал, как надо.

На клиенте два Winsock, как папа прописал:

Private Sub WsListen_ConnectionRequest(ByVal requestID As Long)
On Error GoTo Err

If WSReceiver.State <> sckClosed Then
WSReceiver.Close
Do While WSReceiver.State <> sckClosed
DoEvents
Loop
End If
WSReceiver.Accept requestID

Writelog 'Принял запрос на соединение....'
exit sub

Private Sub WsReceiver_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next

WriteLog 'Пришло несколько байт....'

exit sub

Так вот на клиенте в лог пишет, что запрос он принял, а вот данные не пришли :-(((. На сервере форму специально на момент передачи данных показал (мало-ли что) - результат тот-же.

В чем причина может быть?