TCP接続の複数人チャットプログラムをつくるには？ (ID:111150)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private intMax As Long Private Sub Form_Load() intMax = 0 sckserver(intMax).LocalPort = 1001 ←この部分でエラー、オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438) sckserver(intMax).Listen End Sub Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal requestID As Long) If Index = 0 Then intMax = intMax + 1 Load sckserver(intMax) sckserver(intMax).LocalPort = 0 sckserver(intMax).Accept requestID Load txtData(intMax) End If End Sub どうしたらいいのでしょうか？