Как выполнить функцию в случае нажатия на CheckBox, если данный CheckBox был добавлен через код?

[PAMAC]

Добрый день!
Подскажите, как можно выполнить функцию в случае нажатия на CheckBox, если данный CheckBox был добавлен через код таким вот способом: UserForm1.Frame1.Controls.Add("form s.checkbox.1", "df", True)?

[DiemonStar]

например, так:

Private WithEvents DF As MSForms.CheckBox

Private Sub DF_Click()
   MsgBox "test"
End Sub


Private Sub UserForm_Initialize()
  Set DF = UserForm1.Frame1.Controls.Add("Forms.CheckBox.1", "DF", True)
End Sub

или через классы.

[PAMAC]

Никак не решу данную проблему.

У меня в модуле (Module1) есть такая вот функция, с помощью которой на форму добавляются новые OptionButton:

Function addob()
Dim i As Integer
dim top as integer
top = 0
i = 10
Do While i >= 0
Set el = UserForm1.Frame4.Controls.Add("Form s.OptionButton.1", "myoption", True)
With el
.Caption = "Проверка"
.top = top
.Left = 15
.Width = 250
.GroupName = "groupob"
End With
top = top + 15

i = i - 1
Loop
end Function

Теперь для обработчика события добавляю класс (Class1) и следующий код в него:

Public WithEvents myoption As MSForms.OptionButton

Private Sub myoption_Click()
MsgBox 1
End Sub

Запускаю! Проверяю - не работает(((( Прошу помощи!

[Казанский]

Надо создавать экземпляры класса и хранить из в массиве или коллекции, связывать каждый контрол со своим экземпляром. Код Module1:

Dim cl As New Collection

Function addob()
Dim i As Integer
Dim top As Integer
Dim el As Object
top = 0
i = 10
Do While i >= 0
    Set el = UserForm1.Frame4.Controls.Add("Forms.OptionButton.1", "myoption", True)
' !!!
    cl.Add New Class1
    Set cl(cl.Count).myoption = el
' !!!
    With el
        .Caption = "Проверка"
        .top = top
        .Left = 15
        .Width = 250
        .GroupName = "groupob"
    End With
    top = top + 15
    
    i = i - 1
Loop
End Function

[PAMAC]

Благодарю!

[EducatedFool]

А вот здесь есть файл с примером использования классов на форме:
http://excelvba.ru/code/ClassModulesForUserform

[statsevera]

помогите еще пожалуста, срабатывает только на последней созданной странице

Public WithEvents ToggleButton As MSForms.ToggleButton

Public MPi As String

Sub ToggleButton_Change()
msg = "ñðàáîòàëî"
MsgBox msg
End Sub

Dim MyToggleButton As chh, coll As Collection

Private Sub CommandButton1_Click()
Set coll = New Collection
MPi = Me.MultiPage1.Pages.Count - 1
With Me.MultiPage1.Pages.Add(Page, MPi + 1)
End With
Set MyToggleButton = New chh
Set MyToggleButton.ToggleButton = Me.MultiPage1.Pages(MPi + 1).Controls.Add("Forms.ToggleButton .1")
With MyToggleButton
With .ToggleButton
.Height = 24: .Left = 326: .Top = 30: .Width = 56: .Font.Size = 10: .Caption = "ñàò" & MPi
End With
coll.Add MyCheckBox
End With
End Sub

[statsevera]

все разобрался))) тупанул
подскажите как на каждую кнопку назначить отдельное событие?
и как обращаться к элементу например textbox созданному таким образом?