Private Function SaveImage(Image As IPictureDisp) As Byte()
SavePicture Image, confile
ReDim SaveImage(FileLen(confile) - 1)
Dim l As Long
l = FreeFile()
Open confile For Binary Access Read As #l
Get #l, , SaveImage
Close #l
Kill confile
End Function
Private Function LoadImage(Data() As Byte) As IPictureDisp
Dim l As Long
l = FreeFile()
Open confile For Binary Access Write As #l
Put #l, , Data
Close #l