Michael,

Just use the whole sys(2015) value as your key. The problem is the activex control doesn't handle the situation where the key string is all digits.

>The following code is in the init section of a form which has an Imagelist control and a Listview control. This code is used to populate the listview control, but I keep getting an "invalid key' error.
>
>
>*** Loading Icons into Image List ***
>For I = 1 To lnButtons &&Number of buttons
> thisform.imglstButtons.ListImages.Add(,,Loadpicture(laButtons(i,1)))
>Endfor
>thisform.olecontrol3.Icons = thisform.imglstButtons
>**thisform.olecontrol3.SmallIcons = thisform.imglstButtons
>
>*** Loading imagelist icons into listview ****
>For I = 1 To thisform.imglstButtons.listImages.count
> **thisform.olecontrol3.ListItems.Add(,,
> lcKey = Right(Sys(2015),6)
>Error ----- thisform.olecontrol3.ListItems.Add(,,'',thisform.imglstButtons.ListImages(i).Picture)
>Endfor
>
>If anyone can help me and help me better understand how this error is caused, I would greatly appreciated.