Unnamed

    Public Sub ReceivedData(ByRef Data As String, ByRef Bytes As Integer) Handles Socket.SocketReceived
        If DCCType = DCCTypeEnum.Receive Then
            If Socket.Socket.IsConnected = True Then
                Dim mb(3) As Byte
                mb = BitConverter.GetBytes(Bytes)
                Socket.SendSocketData(mb)
#If TRACE Then
                Static TotalRetLen As Integer = 0
                TotalRetLen += Bytes
                Trace.WriteLine("Sendt receipt on " & Bytes & " bytes back to client, total size: " & TotalRetLen)
#End If
            End If
        End If

    End Sub