Hints then


Always copy position etc from the first shape (pentagon 5?)
Set shp = osld.Shapes("pentagon 5" )

After each loop of C you need to reset X to zero I think
Next X=0
Next j