Function to change image on userform if clicked.

Hi everyone,

im not really sure how to explain in the correct manner what i need to acheive but im sure someone will understand what im trying to do and will have a solution.

So here goes. Im building a userform where a person enters where damage is on a mobile phone.

I have a userform, with a drop down box it has options like, "Scratch, Dent, Cracked, Chipped, Other" in it.

if you can imagine there would be an image of a mobile phone on the userform, overlayed on it would be a lot of cells, to acheive this i would put on top of the image, a lot of image tools, to build a grid that is transparent.
when you click on one of the images i need the image in the now transpartent cell to change image.

clicking on the image and chaging its image based on whats in the dropdown box is the key part. now obviously i could just do this with a IF THEN ELSE statement. If dropdown box = Dent them image1.picture = "dentimage.jpj"...

but i would have roughly 150 images (cells) to do this for and thats a lot of coding, i also need to do a back side of the phone, so a total of 300 images (cells).

i was thinking to make this so much quicker, pass the currently clicked image control to a function, determine whats in the dropdown box, then update the current image properties with the correct image.

The problem i have is i dont know how to pass an object on a userform to another function to preform actions on it while in the function.

also when you click on an image to change its picture, i need to update a cell on a spread sheet as well with the scratch, dent, etc. so the Sheet in excel can be printed with a grid of cells that is 10 columns by 15 rows, to give me the 150 cells representing the phone and where the damage on the phone is located.

Would greatly appreciate your ideas and help with this.

Hi Norie i think you have help me before actually

what do i need to write in the Private sub of the image_mouosedown event to pass over to the function?

Regards

Oh wait i worked it out

Thank you so much Norie

i even worked out that if i name my image control A1 and just use the control name and the Sheets(Sheet1).Range(IMAGECONTROLNAME).Value so that i dont have to change the code for all 300 image boxes. and my A1 cell on my sheet will update with the type of name as defined in the fuction