.Controls.Add("Forms.Label.1", "Labl" &a

[rdva]

При выполнении этого кода из одной формы (для добавления контрола в другую форму)

Код: Выделить всё

Dim Lbl as Label

Set Lbl = GoodsForm.Controls.Add("Forms.Label.1", "Labl" & i, True).Caption = "test"

вылетает Runtime Error 424: Object Required

а этот код работает нормально

Код: Выделить всё

Dim Lbl as Control

Set Lbl = GoodsForm.Controls.Add("Forms.Label.1", "Labl" & i, True)
Lbl.Caption = "test"


Почему?

[Template]

разницу видите

Код: Выделить всё

Dim Lbl As Label
Set Lbl = ActiveSheet.Labels.Add(25, 25, 50, 25)

Код: Выделить всё

Dim Lbl As MSForms.Label
Set Lbl = GoodsForm.Controls.Add("Forms.Label.1", "Label1")

[rdva]

Семен Семеныч... =)
Спасибо.