Hur skapar man en numerisk kod i vb 6 som visas när man träffar en cirkel?

Privat underkommando1_Klick()

För i =1 till 8

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

Bredd:=20, Höjd:=20, Bakfärg:=clHöjd

Nästa i

Avsluta Sub

```