いつも大変お世話になっています。

WindowsXPでのVB6にて作成したアプリでのサーバークライアントの
通信においてサーバー側がIP確認でエラーと判定して接続拒否を
した際にクライアント側で実行時エラーが発生してしまいます。
以下に抜粋になりますが、関係すると思われる部分のソースを簡略して
のせます。
注）VBのヘルプを参考にサーバー側はWinsockコントロールをコントロール
    配列にすることで複数接続を実現しています。

--- サーバー側 ----------------------------------------------------------
Private Sub Winsock_Sv_ConnectionRequest(Index As Integer, ByVal requestID As Long)

    If 接続要求受付可否フラグ = NG Then
        Exit Sub                                        ←[１]
    End If

    '=== 接続元判定 ===
    If StrComp(Winsock_Sv(Index).RemoteHostIP, 内部照合IPデータ) <> 0 Then
        Exit Sub                                        ←[２]
    End If

    '--- 接続要求受付 ---
    If Index = 0 Then
　　　　Winsockコントロールのコントロール配列をLOADしAcceptする。
    End If
End Sub

--- クライアント側 -----------------------------------------------------
Private Sub Winsock_Ct_Connect()
    '=== ヘルスチェック初期送信 ===
    Winsock_Ct.SendData "007|HEALTH"                    ←[３]
End Sub


上記[３]で「実行時エラー'40006':指定したトランザクションまたは要求の
プロトコルまたは接続状態に問題があります。」というエラーが発生します。
サーバー側のソースにて同じようにExitさせても[１]では問題が発生せず、
[２]でこのエラーが発生することからStrCompした際にオブジェクトを
参照することによって自動的にConnect状態になっているのではと推測しています。

この推測が正しいのか、また正しいのであれば回避方法など少しでもアドバイス
いただけると助かります。
よろしくお願いいたします。

解決ではないのですが、簡易テストアプリにて同様の動作を
させてみたところ現象は発生しなかったのでどこかにバグが
あると思われます。

掲示板を汚してしまいました、大変申し訳ありませんでした。

たびたびすみません。

簡易テストアプリでも再現していました。
結論から言うと、Winsockコントロールをコントロール配列にてListenすると
ConnectionReuestが発生した時点でクライアント側にはConnectイベントが
発生するみたいです。
通常（コントロール配列ではない１つ）でListenするとConnectionReuestが
発生した時点でクライアント側でConnectイベントが発生していないのを
確認しました。

ということでアプリの設計にて回避する必要があるみたいです。
ご報告までに。

LocalPort プロパティ は 0 　になっていますか？
確か　0にしてないとエラーが出る時があるような記憶があります

來さん、お返事ありがとうございます。

> LocalPort プロパティ は 0 　になっていますか？
> 確か　0にしてないとエラーが出る時があるような記憶があります

はい、LocalPort=0の件は認識していますのでそのようにしています。
クライアント側のConnectイベント内でWinsockのステータスが
7(接続済み)から0(クローズ)へ変化しているのを確認していますので
おそらく前述のとおり仕様なのでは？と推測しています。