Private Sub WsClient_ConnectionRequest(Index As Integer, ByVal requestID As _
  Long)
 
   setClientLog Typ:="ConnectionRequest", ClientIP:=WsClient( _
     Index).RemoteHostIP & ":" & WsClient(Index).RemotePort
 
    If Index = 0 Then
       strConnections = strConnections + 1
       txtConnections.Text = strConnections
 
       If chkStayOnline.Value = "1" Then
 
            ' by 0 Connection
 
       Else
 
            Load WsClient(strConnections)
 
       End If
 
         'WsClient(strConnections).LocalPort = 6615
         WsClient(strConnections).Accept requestID
 
       If chkStayOnline.Value = "0" Then
 
            chkStayOnline.Value = "1"
 
       End If
    End If
 
End Sub