Connecting multiple clients to a ServerSocket

May i know how to connect multiple clients, having same PORT number, to a ServerSocket.
I could only get 1 client to connect at any time.
May i know what i do wrong?
Please advise. Thanks

B4A Server code

Code:

  Sub Process_Globals
Dim AStreams1 As AsyncStreams
Dim Server1 As ServerSocket
Dim Socket1 As Socket
End Sub

Sub Server1_NewConnection (Successful As Boolean, NewSocket As Socket)
If Successful Then
ToastMessageShow("Connected_Client", False)
        Socket1 =...  

Connecting multiple clients to a ServerSocket

from B4X Community - Android, iOS, desktop, server and IoT programming tools http://ift.tt/2bWRkHo
via IFTTT