Public Sub subServerRead()
        Dim inStream(10024) As Byte
        Dim strPlayerID As String
 
        While True
            serverStream = clientSocket.GetStream()
            serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
            returndata = System.Text.Encoding.ASCII.GetString(inStream)
            returndata = returndata.Substring(0, returndata.IndexOf("$"))
            If Left(returndata, 3) = strPlayerAdded Then
                strPlayerID = Right(returndata, 1)
                If strPlayerID <> CStr(srtThisPlayerID) Then 'nur 
                ' empfangende Clients
                    sub_ShowNewPlayer(CInt(strPlayerID))
                End If
            End If
        End While
    End Sub

    Public Sub sub_ShowNewPlayer(srtPlayerID As Short)
        srtNrPlayers = srtNrPlayers + 1
 
        If frmUITable.Controls("pnl_Player" + CStr(srtPlayerID)).InvokeRequired _
          Then
            Dim d As New sub_ShowNewPlayerCallback(AddressOf sub_ShowNewPlayer)
            frmUITable.Controls("pnl_Player" + CStr(srtPlayerID)).Invoke(d, New _
              Object() {srtThisPlayerID})
        Else
            frmUITable.Controls("pnl_Player" + CStr(srtPlayerID)).Visible = True
            frmUITable.Controls("pnl_Player" + CStr(srtPlayerID)).BringToFront()
        End If
 
        If frmUITable.pbxCard1.InvokeRequired Then
            Dim d As New sub_ShowNewPlayerCallback(AddressOf sub_ShowNewPlayer)
            frmUITable.pbxCard1.Invoke(d, New Object() {srtThisPlayerID})
        Else
            frmUITable.pbxCard1.Image = frmUITable.imgList_Cards.Images.Item(1)
        End If
 
 
        frmUITable.stb_Status.Text = returndata
 
    End Sub