'Verbindungsanfrage kommt
Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long)
        Dim newIndex as Integer = WS.Count
        'Neues WS laden:
        Load WS(newIndex)
        'Local Port NULL setzen, damit daran keine Anfragen mehr
        'gesendet werden können:
        WS(newIndex).LocalPort = 0
        'Verbindungsanfrage für das neue WS akzeptieren:
        WSChat(newIndex).Accept requestID
End Sub