erro ao executar unload

[aluizs 0]

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

 

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.

[KhaosDoctor 242]

Deixe o botão invisível e chame pelo: Button.PerformClick()