fill effects using vba

Hi,

I have some shapes in excel that i want to colour using fill effects. i have managed to colour them using one colour but dont know how to fill effects. is anyone able to help. below is the code i am using

Worksheets("SnapShot").Shapes(ShapeName).Fill.ForeColor.RGB = RGB(211, 3, 33)

Thanks