诚心求助在使用winsock遇到的问题，请高手赐教
下面是我的两个事件使用winsock控件数组编译时，提示编译错误:错误的参数号或无效的属性赋值（显示的错误行是tcpServer(0).LocalPort = 1001）请高手赐教是怎么会事？
Dim intMax As Integer
Private Sub Form_Load()
'tcpServer.LocalPort = 1001
'tcpServer.Listen
'frmClient.Show '显示客户端的窗体。
intMax = 0
tcpServer(0).LocalPort = 1001
tcpServer(0).Listen
End Sub
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load tcpServer(intMax)
tcpServer(intMax).LocalPort = 0
tcpServer(intMax).Accept requestID
Load txtData(intMax)
End If
End Sub
