>This is more what I need to get to work:
>
>For x = 1 To 17
> ThisForm.Shape(x).BackColor = RGB(0,0,255)
>Next x

All same color ? If so just :

ThisForm.SetAll('BackColor',RGB(0,0,255),'Shape')

Otherwise what you show needs a control array. Probably all shapes are named Shape1...Shape17. If so :

For x = 1 To 17
 with eval('ThisForm.Shape'+ltrim(str(x))
   .BackColor = RGB(0,0,255)
 endwith
Next x

* Mimic a control array
* Form has custom array property myShapes
* Each shape adds a reference to self in its init to array
* Or a form method does it once
For x = 1 To 17
 ThisForm.myShapes[x].BackColor = RGB(0,0,255)
Next x

Cetin