Private Winsock1_ConnectionRequest (Index as Integer, requestID as Long)
Dim i as Integer
 
  Winsock1(index).Close
  Winsock1(index).Accept requestID
 
  i = index + 1
  Load Winsock1(i)
  Winsock1(i).Listen
 
End Sub

MFG, Nino.