Excel.VBA

1. Создаю форму: UserForm1 ;
2. Кидаю на форму фрейм: Frame1 ;
3. Пишу код:
Private Sub UserForm_Initialize()
Set A = UserForm1.Frame1.Controls.Add("Forms.Frame.1", "aaa")
End Sub
4. Стартую - появляется мой Frame1 , а в нём новый объект.
5. Стоп

6. Кидаю на форму Frame2
7. Стартую - Excel вылетает!

Если изменить: Set A = UserForm1.Frame 2 .Controls.Add("Forms.Frame.1", "aaa")
Всё работает...

А что не так?

Похоже что ответа не дождусь...

А можно ли в excel'е переместить объект во фрейм типа как в VB:

Set Label1(1).Container = Form1.Frame1

Если оформить код так:

Private Sub CommandButton1_Click()
Set A = UserForm1.Frame1.Controls.Add("Forms.Frame.1", "aaa")
End Sub

выдаёт следующее сообщение:

Run-time error '-2147417848(80010108)':
Method 'Add' of object 'Controls' failed

А что касается MultiPage , то всё работает пока на форму не положить ещё один фрейм :) или ещё один MultiPage.

Короче метод .Controls.Add("Forms.Frame.1") работает исключительно только с последним размещённым на форме контейнером будь то Frame либо MultiPage либо ещё какая бяка.

Вопрос остаётся открытым:
Как переместить создаваемый на ФОРМЕ фрейм в любой другой контейнер ибо другого пути решения не вижу :(


___________________________________________________________________________________
Кто смотрит в телевизор тот тратит время зря, хорошую "программу" увидеть там нельзя. [щщёпокляк]