Честно говоря не знаю что надо искать на форуме что-бы получить ответ на мою проблему
В форме есть объект "Picture" в котором я поместил "TextBox" при помощи одной "CommandButton" я дублирую "Picture" а второй кнопкой дублирую "TextBox"
Проблема, которую я не могу решить : как можно продублировать "Picture" вместе с содержимый в нем "TextBox"
- Код: Выделить всё
Option Explicit
Private Sub Command1_Click()
Dim ll As Integer
ll = Picture1.Count
Load Picture1(ll): Picture1(ll).ZOrder 0: Picture1(ll).Visible = True: Picture1(ll).Top = Picture1(ll - 1).Top + Picture1(ll).Height + 50
End Sub
Private Sub Command2_Click()
Dim ll As Integer
ll = Text1.Count
Load Text1(ll): Text1(ll).ZOrder 0: Text1(ll).Visible = True: Text1(ll).Top = Text1(ll - 1).Top + Text1(ll).Height + 50
End Sub
Спасибо