Private KompletteLaenge As Integer = 0
    Private mEmpfangeneLaenge As Integer = 0
    Private mKomplettesObjektalsByteAktuellePosition As Integer
    Private mReceiveBuffer(1023) As Byte
    Private mKomplettesObjektalsBytes(-1) As Byte
 
    Private Sub BeginReceive(ByVal ar As System.IAsyncResult)
 
        mEmpfangeneLaenge = mClientSocket.EndReceive(ar)
 
        'Anzahl der Bytes holen, die kommen
        If KompletteLaenge = 0 Then 'FirstFrame
            KompletteLaenge = mReceiveBuffer(0)
            KompletteLaenge += CInt(mReceiveBuffer(1)) << 8
            KompletteLaenge += CInt(mReceiveBuffer(2)) << 16
            KompletteLaenge += CInt(mReceiveBuffer(3)) << 24
            ReDim mKomplettesObjektalsBytes(KompletteLaenge - 1)
            Array.Copy(mReceiveBuffer, 4, mKomplettesObjektalsBytes, _
              mKomplettesObjektalsByteAktuellePosition, mEmpfangeneLaenge - 5)
        End If
 
        mKomplettesObjektalsByteAktuellePosition += mEmpfangeneLaenge - 1
        Array.Copy(mReceiveBuffer, 4, mKomplettesObjektalsBytes, _
          mKomplettesObjektalsByteAktuellePosition, mEmpfangeneLaenge - 5)
 
        mClientSocket.BeginReceive(mReceiveBuffer, 0, 1023, _
          Net.Sockets.SocketFlags.None, AddressOf BeginReceive, mClientSocket)
 
        If mKomplettesObjektalsByteAktuellePosition = KompletteLaenge - 1 Then
            KompletteLaenge = 0
            RebuildList()
        End If
 
    End Sub