Sub AttivaUnCerchio(NumeroCerchio As Int)
If NumeroCerchio <= ListaDeiCerchi.Size Then
For z = 0 To ListaDeiCerchi.Size - 1
Dim CerchioCheDisattivo As B4XView = ListaDeiCerchi.Get(z)
CerchioCheDisattivo.SetColorAnimated(200, CerchioCheDisattivo.Color, ParametriIndicatore.Get("ColoreSfondo_Disattivo"))
Next
Dim CerchioDaAttivare As B4XView = ListaDeiCerchi.Get(NumeroCerchio - 1)
CerchioDaAttivare.SetColorAnimated(200, ParametriIndicatore.Get("ColoreSfondo_Disattivo"), ParametriIndicatore.Get("ColoreSfondo_Attivo"))
End If
End Sub