I have this code and i would like to reduce it with a for each instruction, is there a way?

Shape1.BackColor = vbRed
Shape1.BorderColor = vbGreen
Shape2.BackColor = vbRed
Shape2.BorderColor = vbGreen
Shape3.BackColor = vbRed
Shape3.BorderColor = vbGreen
Shape4.BackColor = vbRed
Shape4.BorderColor = vbGreen
Shape5.BackColor = vbRed
Shape5.BorderColor = vbGreen
Shape6.BackColor = vbRed
Shape6.BorderColor = vbGreen
Shape7.BackColor = vbRed
Shape7.BorderColor = vbGreen
Shape8.BackColor = vbRed
Shape8.BorderColor = vbGreen
Shape9.BackColor = vbRed

Thanx