[Resolvido]Alterar nome de um controle via código

Boas,

Tenho 20 retângulos nome Caixa1 até Caixa20 é possivel
alterar o nome destes 20 retângulos de uma só vez com loop?, tipo:

passarima de CaixaA1 até CaixaA20.

Obrigado

Não posso testar de momento,
mas seria algo como:

Dim i as Integer

For i = 1 to 20
COntrols("Caixa" & i) = Val (Controls("CaixaA_ & i))

Penso que será isto!!

Obrigado

Boa tarde,

Aqui está a resolução que pode ser útil para outros:

Private Sub SeuBotao_Click()
Dim ctl As Access.Control



For Each ctl In Forms!SeuForm ' tem que estar aberto em vista de design

If Left(ctl.Name, 5) <> "SeuControle" Then
ctl.Name = "SeuNovoNomeControle"
End If
Next ctl

End Sub

Obrigado a todos