erro 365 ao fazer unload de controle

[Andre_Luiz_S]

Ola.

Uso o seguinte código para criar controles textbox em tempo de execução. onde x é o index do controle pois poderá ser criado até 20 controles textbox, de 1 a 5.

Load Text1(x)

Text1(x).Top = Text1(x - 1).Top + 285

Text1(x).Left = 60

Text1(x).BackColor = xcolarx

Text1(x).Text = tbcadastro!idcod

Text1(x).Visible = True

If tbcadastro!suspenso = True Then

Text1(x).Enabled = False

Text1(x).BackColor = vbRed

Text1(x).ForeColor = vbWhite

Else

Text1(x).Enabled = True

Text1(x).BackColor = xcolarx

Text1(x).ForeColor = vbBlack

End If

depois uso o codigo abaixo para excluir os controles

For x = 1 To (numerojogadores1 - 1)

Unload Text1(x)

Unload Text2(x)

Unload Text3(x)

Unload Text4(x)

Unload Text5(x)

Next x

o problema é que quando tento limpar através de um click de um combobox ele dá erro 365 "unable to unlioad with this context". porém se eu criar um botão com a rotina acima ele a executa sem erro, entretanto se eu chamo a rotina "command3_click" através do click no combo, ela volta a dar erro.

alquem poderia me auxiliar neste problema.

Obrigado.

[Flechaus]

Olá Andre_Luiz_S, tudo bem?

Existem erros característicos de interface, nem sempre podemos compreendê-los, apenas ficar cientes de sua existência e contorná-los.

Lembrando que uma ComboBox no evento click, pode ser disparado várias vezes, mudando o item selecionado várias vezes, isso pode causar alguns erros.

E não se esqueça que você não pode dar Unload no item de índice 0 (zero), isso não é permitido.

E o uso de arrays de controles, sendo eles muito extensos, não é recomendável, pois consome muita memória e seus sistema ficará muito lento ou poderá travar o Windows.

Tente pensar bem sobre a real necessidade deste sistema de arrays de controles.

Espero ter ajudado,

Um abraço