Dim PBag As New PropertyBag@H_404_1@
Dim B() As Byte@H_404_1@
PBag.WriteProperty "Picture",Picture1.Picture@H_404_1@
'读取Picture1.Picture 图片并写到 Pbag 容器中@H_404_1@
B = PBag.Contents '获取容器Byte 到 B() 数组中@H_404_1@
'这时 B 就时我们想要获得的Byte数组@H_404_1@
'读取 Byte() 数组内容到 Picture@H_404_1@
PBag.Contents = B '指定 PBag容器的内容@H_404_1@
'读取容器中的图片@H_404_1@
Set Picture1.Picture = PBag.ReadProperty("Picture")@H_404_1@
@H_404_1@