'************************************************************************************************
'名称:BytesToPicture
'功能:将二进制转化成图片
'参数:
' Bytes() 二进制数组
' Key 转化密鈅
'返回值:图片
'************************************************************************************************
Public Function BytesToPicture(Bytes() As Byte, Optional Key As String = "Key") As StdPicture
With New PropertyBag
.Contents = Bytes
Set BytesToPicture = .ReadProperty(Key)
End With
End Function