Privat underkommando1_Klik()

For i =1 til 8

Circles.Add Shape:=cdOval, Left:=30 * (i Mod 3), Top:=30 * Int(i / 3), _

Bredde:=20, Højde:=20, Bagsidefarve:=clHøjlys

Næste i

Slut Sub

```