Dim ms As New IO.MemoryStream(Bytes, 78, Bytes.Length - 78)

 Public Function LoadIcon(ByVal param() As Byte) As Integer
 
If IsNothing(param) then Return -1
 
Using ms As New System.IO.MemoryStream(param)
'img = Image.FromStream(ms)
'imglst.Images.Add(img)
 
bmp = New Bitmap(ms,78,param.Lenth-78)
imglst.Images.Add(bmp)
 
Return imglst.Images.Count - 1
End Using
End Function