恳求VB一对多的TCP通信程序代码

恳求VB一对多的TCP通信程序代码

---

S:vb.net 多线程
C:vb/VB

---

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
这是MSDN的例子原代码，但我在编译时总是报错：过程声明与同名事件或过程的描述不匹配。
有谁知道是怎么回事啊？

---

http://www.m5home.com/blog/article.asp?id=169

虽然这个代码不是专门演示一对多的,但也实现了一对多.

可参考一下.

---

设计时，在form上放置的winsock控件sckServer的Index属性要设置为0，即使sckServer成为数组，这样那个过程声明的描述才会符合。

---

引用

设计时，在form上放置的winsock控件sckServer的Index属性要设置为0，即使sckServer成为数组，这样那个过程声明的描述才会符合。

已经设置为0了啊

---

引用

http://www.m5home.com/blog/article.asp?id=169

虽然这个代码不是专门演示一对多的,但也实现了一对多.

可参考一下.

打不开啊

---

引用

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
  If I