Add shapes and change their color at the same time through VBA

Tech-Archive recommends: Speed Up your PC by fixing your registry

I want to use the ShapeAdded event so that when I add a shape from an
electrical stencil, the shape turns red (or green, or blue, or
whatever) so that it stands out from the rest of my drawing. Any
ideas on how to do this consistantly through VBA? Thanks in advance.

David
(VISIO Newbie)
.