There's two ways to it really. I don't have it, but it's fairly easy. You first need a way to select them. We'll start with single entity selection: ENTSEL.
(setq ent (car (entsel "\nSelect image: ")))
We then take it to Vlisp.
(setq obj (vlax-ename->vla-object ent))
Test it:
(vlax-dump-object obj)
Look around there a bit. What we're going to look into is visibility and imagevisibility
See how many different ways you can crash the ent and obj variable calls. Right now there's no error trappings, so it'll break easily. We'll take care of that later. I'm going to lunch right now, but I'll be back later to add to this. Maybe I'll split this thread into another topic then too.