将Byte()转换为Stream

                        Dim fs As New IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open)
                        Dim b As Byte()
                        ReDim b(CInt(fs.Length))
                        fs.Read(b, 0, CInt(fs.Length))
                        Dim s As New IO.MemoryStream(b)
                        Paint1.Picture = s
                        s.Close()
                        fs.Close()