Обратиться к объекту по индексу

Private Sub Form_Load()
Dim F%, L%
For F = 1 To 2 '2 - к-во массивов Frame()
  For L = 1 To 3 '3 - к-во массивов Label()
     'передаем в nLabel_add форму, последнюю рамку каждого из массивов FrameF и последнюю метку каждого из массивов LabelF
     nLabel_add Me, _
                Controls("Frame" & F)(Controls("Frame" & F).Count - 1), _
                Controls("Label" & L)(Controls("Label" & L).Count - 1)
  Next L
Next F
End Sub
 
Public Sub nLabel_add(nForm As Form, nFrame As Variant, nLabel As Variant)
  MsgBox nForm.Name & ":" & nFrame.Name & "(" & nFrame.Index & "):" & nLabel.Name & "(" & nLabel.Index & ")"
End Sub

Public Sub nLabel_add_A(nLabel As Variant)
'Dim nFrame As VB.Frame: Set nFrame = nLabel(0).Container
'Dim nForm As VB.Form: Set nForm = nLabel(0).Parent
Load nLabel(nLabel.Count)
With nLabel(nLabel.Count - 1)
  .Visible = True
  .Top = nLabel(nLabel.Count - 2).Top + nLabel(nLabel.Count - 2).Height
  .Left = nLabel(nLabel.Count - 2).Left
End With
End Sub
 
Private Sub Form_Click()
nLabel_add_A Label1
End Sub

nnx = nLabel.Count
If nnx > a Then
Else
Load nLabel(a) 'nForm.
End If
Set nLabel(a).Container = nForm.Frame1(nFrame)
nLabel(a).Visible = True

dim f as vb.frame
on error resume next
set f=nLabel(a)
if err then
  'элемент не загружен
  err.clear
else
  'элемент загружен
endif
on error goto 0