Delete button code inside its own click event

[Shameem Khan]

Hello. I have a Userform with dynamically created Commandbutton. I am using a class called “Class1” to add click events to the commandbutton.

What I am looking for is a way to delete the Button itself when I click on it. I tried adding the code to remove the button inside its own click event. Obviously its not working. Is there any way to make this happen? Please help.

Thanks in advance

Note: FR_LIST is a Frame, Userform name is UF_HOME

Code in Userform:

Dim Btncls As New Class1

Private Sub BT_ADD_Click() ‘ADD is a button inside Userform UF_HOME

  ‘ Some other codes here

  Dim Btn as Object
  Set Btn = Me.FR_LIST.Controls.Add("Forms.CommandButton.1", "BT_REM")

  With Btn
    .Left = 402
    .Top = Slno * 15
    .Width = 13
    .Height = 13
    .Picture = LoadPicture("C:\ Remove.jpg")
    .PicturePosition = 12
  End With

FR_LIST.Visible = True
Set Btncls.CmdEvents = Btn
Slno = Slno + 1

End Sub

Code in Class1:

Public WithEvents CmdEvents As MSForms.CommandButton

Private Sub CmdEvents_Click()

  ‘ Some other codes here

  UF_HOME.FR_LIST.Controls.Remove CmdEvents.Name

End Sub

 

[Jaafar Tribak]

Do you get an error ?

 

[Shameem Khan]

Do you get an error ?

Yes. Error 91 - Object Variable or With Block variable not set

 

[Jaafar Tribak]

Yes. Error 91 - Object Variable or With Block variable not set

Worked for me when testing.

It looks like you have more code than what you are sowing us.
Try adding Option Explicit at the top of your modules, run the code again and see at which line(s) the code errors out

 

[Shameem Khan]

Hi Jaafar. You helped me find the error. There was an error in the userform name that I have given. It was a stupid mistake. Sorry for that. Thank you for your reply.