Adding controls at runtime

I think the easiest way to add control at runtime is to use VBCOntrolExtender:

Definition
Private WithEvents m_ctl As VBControlExtender

Creation
Set m_ctl = Controls.Add(function_to_get_the_DLL_name (), "m_ctl")

Catch the Event
Private Sub m_ctl_ObjectEvent(Info As EventInfo)

Removal
Controls.Remove ("m_ctl")



Andyroo

How can you unload a control that was added like this:

Code:

---

load text1(text1.ubound+1)
text(text1.ubound).move 70,80
text1(text1.ubound+1).visible = true

---

OR, is it possible to set function using the way:

Code:

---

Dim cmd As CommandButton
Set cmd = Controls.Add("vb.commandbutton", "saf")
cmd.Visible = True

---

I know this thread is old, but please.....

Thanks

If your are using Control.Add to add controls at runtime you can use Control.Remove cmd to remove them.

Here's an old post of mine where I add control arrays dynamically.
Dynamically add control arrays

also this can be useful :
http://www.codeguru.com/forum/showthread.php?t=293562

also this :
http://www.codeguru.com/forum/showthread.php?t=293537
to add usercontrols as well

Quote:

---

Originally Posted by Andyroo

I think the easiest way to add control at runtime is to use VBCOntrolExtender:

Definition
Private WithEvents m_ctl As VBControlExtender

Creation
Set m_ctl = Controls.Add(function_to_get_the_DLL_name (), "m_ctl")

Catch the Event
Private Sub m_ctl_ObjectEvent(Info As EventInfo)

Removal
Controls.Remove ("m_ctl")



Andyroo

---

What DLL name are you referring to in function_to_get_the_DLL_name () ?