Private Sub server_NewConnection (Successful AsBoolean, NewSocket AsSocket)
If Successful Then
streams.Initialize (Me, "streams", NewSocket.InputStream, NewSocket.OutputStream)
myServer.Listen
end if
End Sub
Private Sub streams_NewText (text AsString)
Dim streams AsAsyncStreamsText = Sender
...
'Do all kinds of stuff, but since we can have multiple connections at the same time
'I would assume we might be entering/executing this method multiple times at the same time ??
'So here we could be needing some thread safe Map
End Sub