Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Private Sub Command1_Click()
Pre i =1 až 8
Circles.Add Shape:=cdOval, Left:=30 * (i Mod 3), Top:=30 * Int(i / 3), _
Šírka:=20, Výška:=20, Farba pozadia:=clZvýraznenie
Ďalej i
End Sub
```