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 ?
We had an MVBA that used this to display a preview of the symbology of lines to be drawn in the plan view model that has worked for years. Recently it has stopped working and I cannot figure out why. Maybe this is no longer supported?????