برقرای چندارتباط با یک winscok

[sara_t]

سلام دوستان
یکی از دوستان در یکی از تاپیک ها برای برقراری چند ارتباط از طریق winsock روشی رو گفته بودند که من متوجه نشدم لطفا کمک کنید
برنامه من با یک کلاینت درست جواب میده اما برای چند کلاینت همزمان کار نمیکنه.
Private Sub Form_Load()
On Error Resume Next
intmax = 0
LocalPort = 1019

End Sub
Private Sub tcp2_ConnectionRequest(ByVal requestID As Long)
SockIndex = SockIndex + 1
Load tcp1(SockIndex)
'Winsock1(SockIndex).Close
tcp1(SockIndex).Accept requestID
End Sub

Private Sub tcp1_ConnectionRequest(ByVal requestID As Long)
If (tcp1.State <> sckClosed) Then tcp1.Close
tcp1.LocalPort = 0
tcp1.Accept requestID


End Sub



Private Sub tcp1_DataArrival(ByVal bytesTotal As Long)

Dim Data As String
On Error Resume Next
tcp1.GetData Data
If Data = "end" Then End
A$ = Data
MsgBox A$
End Sub

Private Sub tcp1_Close()
On Error Resume Next
tcp1.Close
tcp1.LocalPort = 1019
tcp1.Listen
End Sub
کل برنامه اینه که قسمت زیر رو از تاپیک همین سایت برداشتم که قراره همزمانی رو ایجاد کنه اما نمیتونم ازش استفاده کنم:افسرده:
Private Sub tcp2_ConnectionRequest(ByVal requestID As Long)
SockIndex = SockIndex + 1
Load tcp1(SockIndex)
'Winsock1(SockIndex).Close
tcp1(SockIndex).Accept requestID
End Sub

[HamedFa]

به نظر شما این یه winsock هست؟ واقعا؟ پس این چیه | Load tcp1(SockIndex)
این اصلا یه winsock دیگه لود نمیکن ها. همون یه winsock e