VBA to remove control

[Glory]

I’ve built a userform. The userform contains “commandbutton1”, created at design time.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
A checkbox appears at runtime. The idea is that the checkbox is deleted when the user presses the command button.
<o> </o>
The code doesn’t work. Any ideas why?
<o> </o>

Private Sub Userform_initialize()<o:p></o:p>
<o:p> </o:p>
Set g = Me.Controls.Add("Forms.Checkbox.1")<o:p></o:p>
<o:p> </o:p>
g.Name = "CheckBox1"<o:p></o:p>
g.Caption = "Hello"<o:p></o:p>
g.Height = 22<o:p></o:p>
g.Left = 6<o:p></o:p>
g.Top = 12<o:p></o:p>
g.Width = 72<o:p></o:p>
g.Visible = True<o:p></o:p>
<o:p> </o:p>
End Sub<o:p></o:p>
<o:p> </o:p>
Private Sub CommandButton1_Click()<o:p></o:p>
<o:p> </o:p>
UserForm1.Controls("CheckBox1").Remove<o:p></o:p>
<o:p> </o:p>
End Sub

 

[JoeMo]

I’ve built a userform. The userform contains “commandbutton1”, created at design time.
<o> </o>
A checkbox appears at runtime. The idea is that the checkbox is deleted when the user presses the command button.
<o> </o>
The code doesn’t work. Any ideas why?
<o> </o>

Private Sub Userform_initialize()<o:p></o:p>
<o:p> </o:p>
Set g = Me.Controls.Add("Forms.Checkbox.1")<o:p></o:p>
<o:p> </o:p>
g.Name = "CheckBox1"<o:p></o:p>
g.Caption = "Hello"<o:p></o:p>
g.Height = 22<o:p></o:p>
g.Left = 6<o:p></o:p>
g.Top = 12<o:p></o:p>
g.Width = 72<o:p></o:p>
g.Visible = True<o:p></o:p>
<o:p> </o:p>
End Sub<o:p></o:p>
<o:p> </o:p>
Private Sub CommandButton1_Click()<o:p></o:p>
<o:p> </o:p>
UserForm1.Controls("CheckBox1").Remove<o:p></o:p>
<o:p> </o:p>
End Sub

Try:

Private Sub CommandButton1_Click()
UserForm1.Controls("Checkbox1").Visible = False
End Sub

 

[ZVI]

Try:

Private Sub CommandButton1_Click()
  Controls.Remove "MyCheckBox1"
End Sub

Private Sub Userform_initialize()
  With Controls.Add("Forms.Checkbox.1")
    .Name = "MyCheckBox1"
    .Caption = "Hello"
    .Height = 22
    .Left = 6
    .Top = 12
    .Width = 72
    .Visible = True
  End With
End Sub

 

[Glory]

Thanks for the reply, JoeMo.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
ZVI, that’s exactly what I was looking for.

 

[rahulbassi]

Try:

Private Sub CommandButton1_Click()
  Controls.Remove "MyCheckBox1"
End Sub

Private Sub Userform_initialize()
  With Controls.Add("Forms.Checkbox.1")
    .Name = "MyCheckBox1"
    .Caption = "Hello"
    .Height = 22
    .Left = 6
    .Top = 12
    .Width = 72
    .Visible = True
  End With
End Sub

I'm not able to remove the checkbox using below:
Controls.Remove "MyCheckBox1"

 

[ZVI]

I'm not able to remove the checkbox using below:
Controls.Remove "MyCheckBox1"

For the testing try downloading the example from this link: MrExcel_541746_RemoveRuntimeControl.xls