оращение к автоматически созданным

[statsevera]

создаю элементы на форме commandbutton1 и multipage без страниц,
по клику на кнопку добавляется страница в multipage и на ней frame , commandbutton2 и textbox.
не получается создать реакцию на commandbutton2 чтобы по клику на ней например добавлялась надпись в textbox

Private Sub CommandButton1_Click()
i = Label1.Caption
With Me.MultiPage1.Pages.Add(ytr, i + 1)
y = i
p = i - 1
End With
Label1.Caption = i + 1
With Me.MultiPage1.Pages(p + 1).Controls.Add(bstrProgID:="Forms.frame.1", Name:="fram" + i, Visible:=True)
    .Height = 100: .Left = 26: .Top = 100: .Width = 441: .Caption = "Диапазон"
End With
With Me.MultiPage1.Pages(p + 1).Controls("fram" + i).Add(bstrProgID:="Forms.commandbutton.1", Name:="but" + i, Visible:=True)
    .Height = 19: .Left = 27: .Top = 5: .Width = 353: .Font.Size = 8: .Caption = "вставить текст"
End With
With Me.MultiPage1.Pages(p + 1).Controls("fram" + i).Add(bstrProgID:="Forms.textbox.1", Name:="tex" + i, Visible:=True)
    .Height = 24: .Left = 126: .Top = 30: .Width = 56: .Font.Size = 10:
End With
End Sub

[Казанский]

На второй странице: http://programmersforum.ru/showthread.php?t=227810
А не проще ли изначально создать все контролы, но сделать их невидимыми, а по клику сделать видимыми?

[statsevera]

к сожалению нельзя, в реале они будут разные и от их количества и разновидности будет зависит страница excel создоваемая

[statsevera]

спасибо огромное
скажите КАК Вы так быстро это нашли?
объясните дураку, два дня в инете ищу...

[statsevera]

ну не по памяти же.....

[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