добавление объектов в MultiPage

[AlexandrSid]

Помогите пожалуйста, не могу догнать как программно добавить объект во вкладку MultiPage.
Очень нужно

[pashulka]

Если под термином об'ект Вы подразумеваете некий элемент управления, то создать, например, текстовое поле можно следующим образом :

UserForm1.MultiPage1.Pages(0).Controls.Add "Forms.TextBox.1", "TextBox1", True

Предполагается, что пользовательская форма UserForm1 существует и на ней располагается MultiPage1, который имеет, как минимум, одну страницу.

Если же Вам необходимо не только создать элемент управления, но и использовать события этого контрола, а также изменить значения некоторых свойств, то можно использовать что-то вроде нижеопубликованного кода :

Private WithEvents iTextBox As MSForms.TextBox

'Данное событие и функция используются только в качестве примера.

Private Sub iTextBox_Change()
    MsgBox iTextBox.Value, , ""
End Sub

Private Sub UserForm_Initialize()
    Set iTextBox = MultiPage1.Pages(0).Controls.Add( _
    "Forms.TextBox.1", "TextBox1", True)
    
    With iTextBox
         .MaxLength = 5
         .BackColor = vbRed
    End With
End Sub

[SmOla]

А не подскажете еще как задать программно координаты добавленного в Multipage объекта?
У меня он "прилипает" в левом верхнем углу страницы и никак не сдвигается.

[EducatedFool]

Для этого есть свойства Left и Top, например:

    Me.CommandButton1.Left = 20
    Me.CommandButton1.Top = 35

Заданное расстояние отсчитывается от левого верхнего угла поля вкладки MultiPage

[SmOla]

YES!
Сработало!
А среди допустимых свойств не выводил.. я думала ругнется. Спасибо!