'Ejemplo de creación de controles en tiempo de ejecución
Option Explicit

'Llevará la cuenta de los controles creados
Private numControles As Long

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()
    'Crear un nuevo control de cada tipo

    
    'está declarada a nivel de módulo
    numControles = numControles + 1
    'Crear los controles
    Load Label3(numControles)
    Load Text1(numControles)
    Load Text2(numControles)
    'Posicionarlos y hacerlos visibles
    With Label3(numControles)
        .Visible = True
        .Top = Label3(numControles - 1).Top + .Height + 60
        .Caption = "" & numControles + 1 & ""
    End With
    With Text1(numControles)
        .Visible = True
        .Top = Text1(numControles - 1).Top + .Height + 30
       
    End With
    With Text2(numControles)
        .Visible = True
        .Top = Text2(numControles - 1).Top + .Height + 30
    End With
End Sub

Private Sub Label2_Click()
    'Eliminar un elemento de cada control anteriormente creado

    'El control CERO no se puede eliminar
    If numControles > 0 Then
        'Descargarlos de la memoria
        Unload Label3(numControles)
        Unload Text1(numControles)
        Unload Text2(numControles)
        numControles = numControles - 1
    End If
End Sub