Как добавить в Frame контрол?

[AlexBlack]

Как динамически добавить в Frame контрол?

[SHURUP]

добавляет лейбл в центр Фрейма:

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

Private Sub Command1_Click()
    With Controls.Add("VB.Label", "Label1")
        Set .Container = Frame1
        .Caption = "Caption"
        .AutoSize = True
        .Top = (Frame1.Height - .Height) / 2
        .Left = (Frame1.Width - .Width) / 2
        .Visible = True
    End With
End Sub

[AlexBlack]

Ой. Вот спасибо!!!

[GSerg]

Ээээ... Вообще-то контейнер идёт третьим параметром, так правильнее

Me.Controls.Add("vb.commandbutton", "button1", Frame1).Visible = True