Salve a tutti,
sto consultando un'applicazione che dovrebbe consentire di cliccare su una picture box, far apparire momentaneamente un cerchio e memorizzarne la posizione su una serie di 10 CommandButton.

Il codice :
codice:
Const Raggio = 20

Private Sub cmdCerchio_Click(Index As Integer)
f = FreeFile
Open "CERCHI.TXT" For Input As #f
For i = 1 To Index
    Input #f, cx
    Input #f, cy
Next i
Close #f
picProgr.Cls
picProgr.Circle (cx, cy), Raggio
LabelX = cx
LabelY = cy
End Sub

Private Sub Form_Unload(Cancel As Integer)
Kill "CERCHI.TXT"
End Sub

Private Sub picProgr_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static NumCerchio
If NumCerchio = 10 Then Exit Sub
picProgr.Cls
picProgr.Circle (LabelX, LabelY), Raggio
NumCerchio = NumCerchio + 1
f = FreeFile
Open "CERCHI.TXT" For Append As #f
Write #f, LabelX
Write #f, LabelY
Close #f
cmdCerchio(NumCerchio).Visible = True
End Sub

Private Sub picProgr_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LabelX = X
LabelY = Y
End Sub

Private Sub picProgr_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
picProgr.Cls
End Sub
Riscontro delle anomalie :
1) dopo il clic, il cerchio non viene visualizzato;
2) il primo CommandButton non appare;
3) dopo 10 clic vi è un messaggio di errore di run-time 340 : 'L'elemento '10' della matrice di controlli non esiste'

Il sorgente ha, quindi, delle imperfezioni. Quali ?

Qualcuno può aiutarmi ad individuarle ?
Grazie