问题出在哪儿了？

我是刚学这个的，最近在学做个S\C类型的聊天程序，原理是每个客户端向服务器端发出请求，服务器端把请求的每个客户端的ID和端口号添加到列表框中，当客户端与服务器端断开连接后服务器端上的列表框中删除该客户端的记录。我找了个别人写的源码修改一下，出现的问题是当某个客户端与服务器商朝断开后，再次连接服务器端就连接不上了，我把服务器端的代码贴出来，请大家帮忙给看一下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Private Type ActiveUser
ClientIP As String '记录客户的IP地址
ClientPort As Integer '记录当前会话的端口
ClientID As Long '记录客户的ID号码
ClientConnected As Boolean
'客户连接状态，True表示已连接，False表示没有连接
End Type
Dim CurUser() As ActiveUser
Dim tcpIndex As Integer '跟踪当前建立连接数(地址号)
Dim port As Integer '当前建立的端口号'在Form_Load事件中加入如下代码:
Private Sub Form_Load()
tcpServer(0).Protocol = sckTCPProtocol
tcpServer(0).LocalPort = 8116
'将 LocalPort 属性设置为一个整数。
tcpServer(0).Listen '然后调用 Listen 方法。
tcpIndex = 1
End Sub'准备应答客户端程序的请求连接，使用ConnectionRequest事件来应答户端程序的请求，代码如下：
Private Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)Dim i As Integer
On Error GoTo ErrHandle
For i = 1 To tcpIndex '选择一个空闲端口
If CurUser(i).ClientConnected = False And i <> tcpIndex Then '不是第一个的从这里开始
Load tcpServer(i)
tcpServer(i).LocalPort = CurUser(i).ClientPort - 1
tcpServer(i).Accept requestID
Exit ForElseIf CurUser(i).ClientConnected = False Then '第一个从这里开始
Load tcpServer(i)
tcpServer(i).LocalPort = port    If tcpServer(i).State <> sckClosed Then '如果还没有关闭就先关闭
        tcpServer(i).Close
    End If
tcpServer(i).Accept requestID
Exit ForEnd If
Next
DoEvents
'测试连接是否成功
If tcpServer(i).State = sckConnected Then '如果连接成功
    If i = tcpIndex Then
        '已经没有可用端口,记录客户的IP地址和端口号
        tcpIndex = tcpIndex + 1
        port = port + 1
        ReDim Preserve CurUser(tcpIndex)
        CurUser(i).ClientIP = tcpServer(i).RemoteHostIP
        CurUser(i).ClientConnected = True
        CurUser(i).ClientPort = port
        CurUser(tcpIndex).ClientConnected = False
    Else        CurUser(i).ClientIP = tcpServer(i).RemoteHostIP
        CurUser(i).ClientPort = port
        CurUser(i).ClientConnected = True    End If
    
End IfExit Sub
ErrHandle:
MsgBox "sorry"
Resume Next
'检查控件的 State 属性,如未关闭，在接受新的连接之前关闭此连接。
If tcpServer(0).State <> sckClosed Then
tcpServer(0).Close
tcpServer(0).Accept requestID'接受具有 requestID 参数的,连接。
End If
End SubPrivate Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim i As Integer
Dim s As String
Dim RequID As Long '主叫方ID号码
Dim SearchID As Long '被叫方ID号码On Error GoTo ErrHandle
tcpServer(Index).GetData s, vbString
'接收数据并存入si = InStr(s, "@") '判断@的位置
'分离s中的主叫方和被叫方ID号码
SearhID = Left(s, i - 1) '把好友的号存入SearhID
RequID = Right(s, Len(s) - i) '把自己的ID存入RequIDList1.AddItem (SearhID & "(" & RequID & ") " & port)  '在列表中添加上线名单 '如果是请求寻呼某一ID号码,则检索当前此ID用户是否登录（即CurUser数组中是否存在此用户）,然后发送信息，通知此用户响应呼叫并显示主叫用户ID号码。
For i = 1 To tcpIndex
If RequID = CurUser(i).ClientID And CurUser(i).ClientConnected = True Then
tcpServer(i).SendData (SearhID)
MsgBox SearhIDEnd If
Next
Exit Sub
ErrHandle:
If Err.Number = sckBadState Then '连接不正确
CurUser(i).ClientConnected = False
CurUser(i).ClientIP = ""
Unload tcpServer(i)
Resume Next
End If
End SubPrivate Sub Timer1_Timer()For i = 0 To port - 1
If tcpServer(i).State <> sckConnected And CurUser(i).ClientConnected = True ThenMsgBox i & "没有连接"
CurUser(i).ClientConnected = False
tcpIndex = tcpIndex - 1End IfNextEnd Sub