vb 转换图片二进制数组

'假设Form 上已经存在Picture1的控件，并已经设置好图片
Dim PBag As New propertybag
Dim B() As Byte
PBag.WriteProperty "Picture",Picture1.Picture
'读取Picture1.Picture 图片并写到 Pbag 容器中
B = PBag.Contents '获取容器Byte 到 B() 数组中
'这时 B 就时我们想要获得的Byte数组
'读取 Byte() 数组内容到 Picture
PBag.Contents = B '指定 PBag容器的内容
'读取容器中的图片

Set Picture1.Picture = PBag.ReadProperty("Picture")

出处：http://bbs.bccn.net/thread-248470-1-1.html