Private Sub wskServer_ConnectionRequest(Index As Integer, ByVal requestID As _
  Long)
 'Ein neuer Client
 
  Dim l As Long
 
  If Index = 0 Then
    'Ermittelt den niedrigsten freien Index
    l = GetFreeIndex(wskServer)
 
    'Lädt ein neues Winsock-Control und Konfiguriert es
    Load wskServer(l)
    With wskServer(l)
      .LocalPort = wskServer(0).LocalPort
      .Protocol = sckTCPProtocol
      .Accept requestID
    End With
  End If
End Sub

Cu

Wolfgang