Найдите нижнюю позицию динамического управления

Question

В моей пользовательской форме я спрашиваю у пользователя, сколько из них требуется, и на основе числа, которое пользователь вводит в элементы управления, динамически создается во время выполнения. Я хочу иметь возможность установить размер моей пользовательской формы на основе нижней позиции последнего динамического элемента управления, который был добавлен в пользовательскую форму. Ниже приведен код, который я написал для этого, все, что я хочу сделать в данный момент, предупреждает нижнюю позицию каждого динамического элемента управления, поскольку они добавляются в пользовательскую форму.

Dim dynamicControl As Control 

For i = 1 To TextBox1.Value 
    Set cList = Me.Controls.Add("Forms.ListBox.1") 
    With cList 
     .Name = "listbox" & (i) 
     .Left = 150 
     .Top = listStartPosition 
     .Width = 300 
     .Height = 140 
    End With 
Next i 

dynamicControl = "listbox" & (i) 
Msgbox dynamicControl.Bottom 

Когда я бегу мои ошибки кода это, когда я пытаюсь установить dynamicControl = "listbox" & 0 и ошибку я ПОЛУЧАТЬ является object variable or with block variable not set переменная объекта или переменная блока не установлен

Answer 1

---

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

Private Sub createcontrol(num As Integer) 
    Dim StartPos As Integer 
    Dim WidthPos As Integer 
    StartPos = TextBox1.Top + TextBox1.Height + 10 
    For i = 1 To num 
     Set cList = Me.Controls.Add("Forms.ListBox.1") 
     With cList 
      .Name = "listbox" & (i) 
      .Left = 150 
      .Top = StartPos 
      .Width = 300 
      .Height = 140 
      StartPos = StartPos + .Height + 10 
      Me.Width = .Width + .Left 
     End With 
    Next i 
    Me.Height = StartPos - 8 

End Sub