Unload controls created at runtime.

[Disferente]

How can I unload a control created at runtime using Controls.Add?

Dim TxtArr() As Object

Private Sub Form_Load()
Dim a As Integer
  ReDim TxtArr(5)
  For a = 0 To 5
    Set TxtArr(a) = Controls.Add("VB.TextBox", "txtBox" & Format(a, "000"))
    TxtArr(a).Visible = True
    TxtArr(a).Width = 1000
    TxtArr(a).Height = 285
    TxtArr(a).Left = 200
    TxtArr(a).Top = 285 * a
  Next a
End Sub

Private Sub Form_Click()
  Unload TxtArr(UBound(TxtArr())) 'Gives runtime error 361 (Can't load or unload this object.)
  Unload Form1("txtBox005") 'Gives runtime error 361 as well
End Sub

 

[tedsmith]

You cant unload controls that you didnt load in the first place.
In a control collection the loaded ones usually have a control number after the ones that were there at design time.
so something like :-

Before adding controls you count the original controls
OriginalCount=Controls.Count

Then when unloading:-
For a = Controls.Count to OriginalNumber to step -1
Unload Controls(a)
next

 

[Disferente]

If I can't use unload to remove the controls I create with Controls.Add, is there any other way to remove them?

 

[HughLerwill]

Controls is a Collection it may/ should have a .Remove Method; it may be worth a try.

 

[Disferente]

Controls.Remove TxtArr(UBound(TxtArr())).Name
Works wonders, seems to be exactly what I was looking for.