macro to delete all lighting in a part

hello,

i can't figure out how to delete all the custom lights from a part.

i'm a bit vb illiterate.  maybe one of you experts could enlighten me with a nice macro?

SolidworksApi macros