j = 50
'spasi antar bulatan
space = 20

For i = 0 To 20
  Shapes[i] = Shapes.AddEllipse(i, j)
  Shapes.Move(Shapes[i], i * (10 + space), 0)
EndFor