Windows XP/Pro、VB 6.0 SP5でWinsockコントロールを使ったTCP通信するツールを作っています。
Winsockコントロールで独自プロトコル（というほどたいそうなものではないのですが）でマイコンボードとPCの間の通信を行ってます。

マイコンボードから６０バイト〜７０バイト程度のデータを送信すると、PC側で頭のほうの14〜16バイトを受信したところでフリーズします。
タスクマネージャーを見るとCPU使用率が100%になってます。
そのプロセスを強制終了するまでCPU使用率は100%で、画面の更新も行われません。
受信するコードは次のとおりで、変なことはしてないつもりです。

Private Sub winsckPort1_DataArrival(ByVal bytesTotal As Long)
    ' 受信イベント.
    Static recvData() As Byte
    winsckPort1.GetData recvData, vbArray + vbByte, bytesTotal
    Call addTcpRecivieData(recvData)
End Sub

addTcpRecivieDataプロシージャの中ではバイト配列を "00 01 02"のような16進数表現でString型にいれて、ログファイルに書いてます。
同じPCで出たり出なかったり、ほかのPCでも出たりでなかったりと動作が不安定で困ってます。

固まらないようにするには、どんな点に注意すれば良いでしょうか？

2003でWinsockをしたことはあるというだけで、外しているかもですが、
> Private Sub winsckPort1_DataArrival(ByVal bytesTotal As Long)
>     ' 受信イベント.
>     Static recvData() As Byte
>     winsckPort1.GetData recvData, vbArray + vbByte, bytesTotal
>     Call addTcpRecivieData(recvData)
> End Sub

１．CALL前にbytesTotalの値はいくらにしてますか？
２．VB6のヘルプをみると、recvData As String
winsckPort1.GetData recvData　で、あとの引数はなしで、受信データは
キューから取り出せるはずですよね。これでaddTcpRecivieData()は無しでテストしてみて、まずフリーズする
ことなしに動作が続くかを確認してみたらどうでしょう

前回に続いて、ありがとうございます。

> １．CALL前にbytesTotalの値はいくらにしてますか？

winsckPort1_DataArrivalはVB6.0のWinSockコントロールのイベントなので、bytesTotalは受信したバイト数が入ってきています。

> ２．VB6のヘルプをみると、recvData As String
> winsckPort1.GetData recvData　で、あとの引数はなしで、受信データは
> キューから取り出せるはずですよね。これでaddTcpRecivieData()は無しでテストしてみて、まずフリーズする
> ことなしに動作が続くかを確認してみたらどうでしょう

最初はStringでやってましたけどバイナリデータの扱いが面倒なのと、通信するデータのほとんどがバイナリデータなのでByte配列にした経緯があります。
試行錯誤した結果なのでいまいち自信がないですが、GetDataの使い方は正しいはずです。

addTcpRecivieData()なしではフリーズしませんでした。
ファイルに書いたりしてるのが怪しいのかと思って、試行錯誤してDataArrivalイベントで長い処理をかけると固まるのがわかったんですが、そこから先がお手上げに近いです。
たぶんDataArrivalイベントを落とすケースがあるんだと思いますが確認できてないです。

根本的な回避策ではないですけど、Do 〜 LoopでDoEvents実行しながらBytesReceivedメソッド使って受信監視するような方法を試してます。
まだ固まる症状はでてないのでこの方法で行こうかと思ってます。