Private Sub Recieve()
        Do
            Try
                Dim bytes(ClientRecieve.ReceiveBufferSize) As Byte
                NetworkstreamClient.Read(bytes, 0, CInt( _
                  ClientRecieve.ReceiveBufferSize))
                Dim clientdata As String = Encoding.ASCII.GetString(bytes)
                Dim fi As New FileInfo("D:\Bild.bmp")
                Dim sw As StreamWriter = fi.CreateText()
                sw.Write(clientdata)
                sw.Close()
                If NetworkstreamClient.DataAvailable = True Then
                    Bild.Show()
                    Exit Do
                End If
            Catch ex As Exception
                MsgBox(ex)
            End Try
            Application.DoEvents()
        Loop
        Exit Sub
    End Sub

Public Sub Senden()
        Try
            Dim filestream As FileStream
            filestream = New FileStream("C:\Bild.bmp", FileMode.Open)
            Dim objReader As New BinaryReader(filestream)
            Dim send() As Byte = objReader.ReadBytes(filestream.Length)
            NetworkstreamServer.Write(send, 0, send.Length)
            objReader.Close()
            filestream.Close()
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub