Private Sub ws1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
 
request = requestID
 
If Option2.Value = True Then
If MsgBox("Accept connection request by " & ws1(Index).RemoteHostIP & "?", _
  vbYesNo, "Connection request") = vbNo Then
    'Ablehnen des requests -> einfach aus der Sub rausspringen
    Exit Sub
End If
End If
 
'wenn nicht ablehnen, dann:
If Index = 0 Then
    anzahlVerbindungen = anzahlVerbindungen + 1     'anzahl der verbindungen 
    ' mitzählen
    Load ws1(anzahlVerbindungen)                    'neues WS initialisieren
    ws1(anzahlVerbindungen).LocalPort = 50
    ws1(anzahlVerbindungen).Accept requestID        'Annahme des requests
End If
 
End Sub

wsClient.Connect

LG,Robert