Socket发送图片

服务器端（发送图片）代码如下：
With Me.OpenFileDialog1
            .AddExtension = True
            .CheckFileExists = True
            .CheckPathExists = True
            .Filter = "位图(*.bmp)|*.bmp|jpg图象(*.jpg)|*.jpg"
            .ShowDialog()
            Name = .FileName
        End With
        Dim filestream As New IO.FileStream(Name, IO.FileMode.OpenOrCreate)
        Dim msg(filestream.Length) As Byte
        filestream.Read(msg, 0, msg.Length - 1) '读取文件中的数据，然后保存到msg中
        clientsocket.Send(msg, msg.Length, SocketFlags.None)
        filestream.Close() '关闭文件流

客户端代码（接收图片）
 Public Sub socketReceive()    '接收图片的函数
        While (True)
            Dim recvbytes(2000000) As Byte
            clientsocket.Receive(recvbytes, recvbytes.Length,SocketFlags.None)
            '使用内存流创建image对象    
            Dim mStream As IO.MemoryStream = New IO.MemoryStream(recvbytes)  
            Me.PictureBox1.Image = Image.FromStream(mStream)
             mStream.Close()                
        End While
    End Sub