¿Cómo se crea un código de teclado numérico en vb 6 que se muestra cuando se presiona 1 círculo?

Subcomando privado1_Click()

Para i =1 a 8

Círculos.Agregar forma:=cdOval, Izquierda:=30 * (i Mod 3), Superior:=30 * Int(i / 3), _

Ancho:=20, Alto:=20, Color de fondo:=clResaltar

siguiente yo

Subtítulo final

```