Winsock问题

客户端程序:
    Winsock1.RemoteHost = ServerIP
    Winsock1.RemotePort = 2590
    Winsock1.Connect    sckClient.RemoteHost = ServerIP
    sckClient.RemotePort = 2591
    sckClient.Connect
服务器端:
    sckListen.LocalPort = 2591
    sckListen.Listen
    Winlis2.LocalPort = 2590
    Winlis2.ListenPrivate Sub Winlis2_ConnectionRequest(ByVal requestID As Long)
  '决定由哪一Winsock1数组接受请求
    For i = 0 To 50
     If Winsock1(i).State = 0 Then
        Exit For
     End If
    Next i
    If Winsock1(i).State = 0 Then '保证i是空闲状态
     Winsock1(i).Accept requestID '和客户端对映
     'Winsock1(i).SendData "/Winsock1/" & i
     Exit Sub
    End If
  End Sub
Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
  Dim i As Integer
    '决定由哪一sckServer接受请求
    For i = 0 To MaxChan - 1
     If sckServer(i).State = 0 Then
        Exit For
     End If
    Next i
    If sckServer(i).State = 0 Then '保证i是空闲状态
     sckServer(i).Accept requestID '和客户端对映
   ' sckServer(i).SendData "/sckServer/" & i
     Exit Sub
    End If
End Sub
Winsock1只有接受字节,主要是传文件用
 Winsock1(index).GetData FileByte, vbArray + vbByte '接收类型为:字节数组我的想法是如何让服务器中的sckServer(i1)和winsock1(i2)对应到同一个客户端时端口相等(i1=i2),如何判断?
如果谁有一个能传文件也能聊天的vb程序也行，谢谢