Problem using Element.GetPicture

Hi,

I'm unable to add a picture to ImageList control :

My form contains :

Image1 As Image

ImageList1 AS ImageList

ListView1 As ListView

            Dim elem As Element

            Dim pict As StdPicture

            Set elem = Application.CreateCellElement3("mycellname", Point3dZero, True)
            Set pict = elem.GetPicture(256, 128)
            SavePicture pict, "c:\temp\mycellname.bmp"

            Set Me.Image1.Picture = pict         OK

but       
            Me.ImageList1.ListImages.Add , "im1", LoadPicture("c:\temp\mycellname.bmp")

or
            Me.ImageList1.ListImages.Add , "im1", pict

provide Err 481

Any idea ?

TIA