I ran into the same problem before and couldn't figure out why it was happening I think their was a problem with the code someplace else. However I found away around the problem by putting the code into it's own sub routine.

ex.
ImageList

Private Sub ImageList()
Set imgI = ImageList1.ListImages.Add(, "open", dPicture"open.bmp"))
end sub


****You said that the code works someplace else. Try putting the ImangeList() under the code that's working. Don't know if this is going to work. ******