Anyone know quick way to determine if a key exists in an ImageList control?

Tried to do the following but getting the error message "OLE IDispatch exception code 0 from ListImages: Element not found.."

loImage = toImageList.ListImages(lcIconKey)

IF NOT VARTYPE(loImage)='O'
  Add new image...
ENDIF

My other choice is as follows but the code is called many times and itterating through the collection very call seems a bit much

llImageExists = .F.
FOR EACH loImage IN toImageList.ListImages
  IF loImage.KEY = lcIconKey
    llImageExists = .T.
  ENDIF
ENDFOR

IF NOT llImageExists
  Add new image...
ENDIF