inconsistent connectionRequest

[kenny_oh]

below is my server side winsock listen for connection...but that is happen inconsistent where some time accept connection , sometime couldnt get connection, why this happen??? it is the number port i use?

connect = 0
    connectWinsock(0).LocalPort = 10000
    connectWinsock(0).Listen
 
Private Sub connectWinsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    
    connect = connect + 1
    
    Load connectWinsock(connect)
    connectWinsock(connect).Close
    connectWinsock(connect).Accept requestID
    
    connectWinsock(connect).SendData ("Connected")
    
End Sub
 
Private Sub connectWinsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
 
    Dim state As String
    connectWinsock(Index).GetData state
    
    List3.AddItem (state & vbTab & vbTab & connectWinsock(Index).RemoteHostIP)
    List1.AddItem (state & " just sign In!")
    
    Call buddyDictionary.Add(state, connectWinsock(Index).RemoteHostIP)
    
End Sub