VB.Net Screenshot übers Netzwerk übertragen

Public Class xServer
    Dim t As New Thread(AddressOf Main)

    Event PicReceived(ByVal img As Image)

    Sub New()
    End Sub

    Sub Start()
        t.Start()
    End Sub

    Private Sub Main()
        Dim tcpListener As New TcpListener(IPAddress.Any, 13500)
        tcpListener.Start()
        Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient

        Dim stream As NetworkStream = tcpClient.GetStream()

        Dim oMemoryStream As New MemoryStream

        Do
            Dim rbuffer(32768) As Byte
            Dim size As Integer = stream.Read(rbuffer, 0, rbuffer.Length)
            oMemoryStream.Write(rbuffer, 0, size)

            Thread.Sleep(2) 'Ohne Sleep werden viel zu wenig Daten übertragen  
        Loop While stream.DataAvailable
        MsgBox("Fertig")  

        tcpClient.Close()


        My.Computer.FileSystem.WriteAllBytes("test.bmp", oMemoryStream.ToArray, False)  

    End Sub


End Class

Public Class xClient
    Dim tcpClient As New TcpClient

    Sub New()
    End Sub

    Public Function Connect() As Boolean
        tcpClient.Connect("127.0.0.1", 13500)  
    End Function

    Public Sub SendData(ByVal bmp As Bitmap)
        Dim bwriter As New BinaryWriter(tcpClient.GetStream)

        Dim oMemoryStream As New MemoryStream
        bmp.Save(oMemoryStream, ImageFormat.Bmp)

        Dim wbuffer() As Byte = oMemoryStream.ToArray()

        bwriter.Write(wbuffer)
    End Sub
End Class