Private Sub Command1_Click()
Για i =1 έως 8
Κύκλοι.Προσθήκη σχήματος:=cdOval, Left:=30 * (i Mod 3), Top:=30 * Int(i / 3), _
Πλάτος:=20, Ύψος:=20, Χρώμα πλάτης:=clΕπισήμανση
Επόμενο i
End Sub
```
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα