you could try this

on the mousclick function of the shape


shape1.backcolor = vbred