API:How to change the appearances's color

Hi, everyone!!

Sorry if I had already asked the same question already.

I want to change the appearances's color.

at api.

For example, I want to change this image's solid to red.

Could you tell me the code to change the color?(If possible, VBA)

thank you for reading!

I also attach .sldprt.

SolidworksApi/macros