vb.net 串口通信 传输文件是图片如何接受然后保存成图片

Imports System
Imports System.IO
Imports System.Text
Public Class Form1
    Public Sub GetImage()
        Dim s As Stream = File.Open(MapPath("33.jpg"), FileMode.Open)
        Dim leng As Integer = 0
        If s.Length < Int32.MaxValue Then
            leng = CInt(s.Length)
        End If
        Dim by As Byte() = New Byte(leng - 1) {}
        s.Read(by, 0, leng)
        '把图片读到字节数组中
        s.Close()

        Dim str As String = Convert.ToBase64String(by)
        '把字节数组转换成字符串
        Dim sw As StreamWriter = File.CreateText(MapPath("11.txt"))
        '存入11.txt文件
        sw.Write(str)
        sw.Close()
        sw.Dispose()

    End Sub
    Public Sub CreateImg()
        Dim sr As New IO.StreamReader(MapPath("11.txt"))
        Dim s As String = sr.ReadToEnd()
        sr.Close()
        Dim buf As Byte() = Convert.FromBase64String(s)
        '把字符串读到字节数组中
        Dim ms As New IO.MemoryStream(buf)
        Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(ms)
        img.Save(MapPath("12.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
        ms.Close()
        ms.Dispose()
    End Sub
    Private Function MapPath(ByVal MyName As String) As String
        Dim path As String = "D:\"
        MapPath = path & MyName
    End Function

------解决方案--------------------
http://www.lob.cn/jq/kfjq/235.shtml