Add images at runtime to Imagelist

[access97to2000]

Hi,
how can i add images to a imagelist at runtime ?
i tried this way, but its giving me a "Type mismatch" error:

Dim mgx As Integer
Dim abc As String
mgx = ImageList1.ListImages.Count
abc = CStr(App.Path & "\images\firewo.ico&quot
Set imgx = ImageList1.ListImages.Add(, , abc)

mgx is giving me the number of images already there in imagelist
but the set imgx .... part is giving me error. please help me out.
thanks
rk

 

[access97to2000]

Please Please Please some one answer

 

[vb5prgrmr]

Yours

Set imgx = ImageList1.ListImages.Add(, , abc)

From VB Help

The ListImages collection is a 1-based collection.
You can load either bitmaps or icons into a ListImage object. To load a bitmap or icon, you can use the LoadPicture function, as follows:

Set imgX = ImageList1.ListImages.Add(,,LoadPicture("file name&quot)

You can also load a Picture object directly into the ListImage object. For example, this example loads a PictureBox control's picture into the ListImage object:

Set imgX = ImageList1.ListImages.Add(,,Picture1.Picture)


Hope this Helps

 

[access97to2000]

Thanks ! It worked. I was not using loadpicture.
Thanks again.