winsocket多个客户端连接的问题

服务器端开放一个端口1399，启动时默认为侦听状态    If sockServer.State <> sckClosed Then
        sockServer.Close
    End If
            sockServer.LocalPort = "1399"
        sockServer.Listen服务器连接请求处理：
    Dim msgResult As VbMsgBoxResult    
    If sockServer.State = sckListening Then
        sockServer.Close
    End If
    
    lstStateInfo.AddItem "服务器收到连接请求"
        sockServer.Accept requestID
        lstStateInfo.AddItem "连接成功"
客户端连接    sockClient.Protocol = sckTCPProtocol
    
    If txtServerName.Text <> Empty Then
        sockClient.RemoteHost = txtServerName.Text
    Else
         lstStateInfo.AddItem "必须输入服务器名称或IP地址"
        Exit Sub
    End If
    
    If txtServerPort.Text <> Empty Then
        sockClient.RemotePort = txtServerPort.Text
    Else
        lstStateInfo.AddItem "必须输入远程端口"
        Exit Sub
    End If    
    
    sockClient.Connect客户端数据发送    sockClient.SendData txtSend.Text一个客户端没有关系，第二个客户端打开连接时，就会返回“连接被强制拒绝”
如果不使用connect，直接数据发送，则会提示"所需事物或请求的错误协议或连接状态"是什么原因，请指点