Public Sub LoadImageFromDB(ImageAsUnicodeString As String, ImageKey As String)
''в Image переданы чудо-символы, каждый из которых состоит из двух реальных байт иконки
ReDim arByte(Len(ImageAsUnicodeString) +  1 ) As Byte
arByte = ImageAsUnicodeString
''эти UNICODE чудо-символы преобразуем в массив байт и буферизуем
''Другой вариант этой буферизации - загрузка через через CLIPBOARD
Dim X As Integer, xFileName As String
xFileName = App.Path & "\Files\" & ImageKey & ".ico"
On Error GoTo Nokill
Kill xFileName
Nokill:
On Error GoTo  0 
X = FreeFile()
Open xFileName For Binary Access Write As #X
Put #X,  1 , arByte
Close #X
On Error GoTo InvalidPicture
ImageList1.ListImages.Clear
ImageList1.ListImages.Add , "One", LoadPicture(xFileName)
Exit Sub
InvalidPicture:
MsgBox ("Иконка : " & ImageKey & " не грузится из SY_Icon")
On Error GoTo  0 
End Sub

Public Property Get Picture() As Picture
Set Picture = ImageList1.ListImages( 1 ).Picture
Picture1.Picture = ImageList1.ListImages( 1 ).Picture
Set Image.Handle = Picture.Handle
End Property

While Not RS.EOF
    MSFlexGrid1.AddItem RS("Key")
    MSFlexGrid1.Row = MSFlexGrid1.Rows -  1 
    MSFlexGrid1.Col =  1 
    MSFlexGrid1.Text = DeNull(RS("Alias"))
    MSFlexGrid1.Col =  2 
    Call SY_ImageFromDB1.LoadImageFromDB(RS("Image"), RS("KEY"))
    Set MSFlexGrid1.CellPicture = SY_ImageFromDB1.Picture
    RS.MoveNext
Wend
RS.Close

Public Property Get Picture() As Picture
Set Picture = ImageList1.ListImages( 1 ).Picture
Picture1.Picture = ImageList1.ListImages( 1 ).Picture
Picture1.Height =  423 
Picture1.Width =  423 
Set Picture = Picture1.Image
End Property