初めて利用させて頂きます。コスモスと申します。
環境はＸＰ，ＶＢ６を利用しております。
かれこれ２年間解決できない問題がありまして、
皆さんのお知恵をお貸ししてほしいとおもいます。

WinsockのＴＣＰを用いたアプリケーションを作っております。
ソフトを２重起動して自分と自分で接続のテストをすればつながるのですが、
自分と他人の接続をすると全くつながりません。
サーバ側にはコネクションリクエストイベントさえ発生しません。
サーバのListenのあとクライアントでconnectしても、
フリーズじゃないですが双方とも何も起こらない状態が続きます。

以下のコードは極力簡略化したチャットのアプリケーションなんですが、
２重起動して自分と自分で接続するとちゃんとチャットができます。
しかし他人と接続しても全くつながりません。
なお、コード中のoption1はサーバ・クライアントの選択用のオプションボックス、
command1は「接続」ボタン、command2は「発言」ボタンです。
text1にはポート番号、text2にはＩＰアドレスが入っております。

Private Sub Command1_Click()
If Option1(0).Value = True Then
    Winsock1.LocalPort = Text1.Text
    Winsock1.Listen
Else
    Winsock1.RemotePort = Text1.Text
    Winsock1.RemoteHost = Text2.Text
    Winsock1.Connect
End If
End Sub

Private Sub Command2_Click()
Winsock1.SendData Text4.Text
Text3.Text = Text3.Text & vbCrLf & Text4.Text
Text4.Text = ""
End Sub

Private Sub Winsock1_Connect()
Command2.Enabled = True
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close 'この行が無いとなぜかエラーになる
Winsock1.Accept requestID
Command2.Enabled = True
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim GotData As String
Winsock1.GetData GotData
Text3.Text = Text3.Text & vbCrLf & GotData
End Sub

それともうひとつお伺いしたいことがあります。
どこかのサイトのチャットに入室すると、192.168…とはまた違った
入室者のＩＰアドレスが表示されることがあると思いますが、
巷のチャットで表示されるＩＰアドレスを使うべきなのか、
IPconfigで得られるＩＰアドレスを使うべきなのか、
お教えいただけたらと思います。

様々なＶＢのサイトで調べに調べましたが解決できません、
どうか皆様のお力添えをお願いしたいと思います。

> WinsockのＴＣＰを用いたアプリケーションを作っております。
> ソフトを２重起動して自分と自分で接続のテストをすればつながるのですが、
> 自分と他人の接続をすると全くつながりません。
> サーバ側にはコネクションリクエストイベントさえ発生しません。
> サーバのListenのあとクライアントでconnectしても、
> フリーズじゃないですが双方とも何も起こらない状態が続きます。

　クライアント側でErrorイベントが発生しているのではないかと思います。
エラーの内容を調べてみてください。

> それともうひとつお伺いしたいことがあります。
> どこかのサイトのチャットに入室すると、192.168…とはまた違った
> 入室者のＩＰアドレスが表示されることがあると思いますが、
> 巷のチャットで表示されるＩＰアドレスを使うべきなのか、
> IPconfigで得られるＩＰアドレスを使うべきなのか、
> お教えいただけたらと思います。

　192.168.・・・は、プライベートIPアドレス（ローカルIPアドレス）です。
もう一つのほうは、グローバルIPアドレスです。

　同じ会社内とか自宅内とかであれば、プライベートIPアドレスで
いいですが、インターネットを介しているとグローバルIPアドレス
でないといけません。ただし、その場合は、サーバー側はインター
ネットから接続できるようにルータ等で設定されていないと接続
できませんが。

Starfishさん、ご返信誠にありがとうございます！！
感謝の言葉もございません！

> 　クライアント側でErrorイベントが発生しているのではないかと思います。
> エラーの内容を調べてみてください。

おっしゃるとおり、エラーイベントが発生しておりました。
ナンバーとデスクリプションをメッセージボックスで表示させたところ、
10061 接続が受け付けられませんでした
とのことでした。

それから、グローバルＩＰとプライベートＩＰについて
お教えくださりありがとうございます！
どうやら結構基本的なことのようで・・・。
お恥ずかしい限りです。
現在、グローバルＩＰアドレスで接続を受け付けられるよう
ネットで設定の方法を調べに調べております。
私の使っているモデムでの設定方法の例がなかなか無くて、難儀している所です。

主にこちらのホームページ
http://y-kit.jp/saba/xp/nattable.htm
を見ながら設定を行っております。
スタティックＩＰマスカレードという言葉はルータの設定画面を
さがしても探しても見つかりませんでしたが、
ＮＡＴエントリという項目がありましたのでそちらをいじりました。
「ＬＡＮ側ホスト」に固定ＩＰアドレス、「プロトコル」をＴＣＰ、
「ポート番号」をanyにし、この設定を追加しました。

という感じで設定して作成中のプログラムの接続のテストを行っているのですが、
いまだに「エラー10061　接続が受け付けられませんでした」が出ます。

もし、まだつながらない原因と思われることがありましたら、
誠に図々しいですがどうかお教えいただきたいと思います。

> という感じで設定して作成中のプログラムの接続のテストを行っているのですが、
> いまだに「エラー10061　接続が受け付けられませんでした」が出ます。
>
> もし、まだつながらない原因と思われることがありましたら、
> 誠に図々しいですがどうかお教えいただきたいと思います。

　10061は、相手には届いているが相手から拒否された場合のエラーです。

　相手が、Listen を発行していない、か、ルータの設定が悪くて
相手に届く前にルータから拒否されているかだと思いますが。

Starfishさん、アドバイスのおかげで見事に２年来の問題が解決しました！
本当にありがとうございます、このご恩はきっと忘れません！！

ルータの設定をきちんと直したところ、
きちんと外部からの接続を受け付けることができました。
おっしゃるとおり、ルータが外からの通信を通さなかったみたいです。
モデムやルータ、自宅サーバについて解説したサイトを
いろいろ調べてまわったところ、解決にたどり着くことができました。

私のプログラムを待っていてくれる人たちにようやく応えることができます。
このたびは本当にお世話になりました。

> 私のプログラムを待っていてくれる人たちにようやく応えることができます。

　一般的には、プロバイダから提供されるIPアドレスは、固定では
ありません。しばらく使わないと、IPアドレスは変わります。
クライアントから確実に接続するには、サーバ側で以下のような
サービスに入る必要があります。

　たとえば、@niftyなら

・@nifty 固定IPサービス
　http://www.nifty.com/staticip/

・@nifty ダイナミックDNS
　http://www.nifty.com/ddns/

最後までわざわざいろいろ教えくださり、本当に感謝の言葉もございません。
これからの参考にいたします！