Hola!
Aquí tienes un ejemplo de como hacerlo:
• Agrega un Textbox con indice en cero (txt)
• Agrega un Label con indice en cero (lbl)
• Agrega un Command (cmd)
Código vb:
Ver originalPrivate Sub cmd_Click()
Dim IND As Integer
'PARA EL LABEL
IND = lbl.UBound + 1
Load lbl(IND)
lbl(IND).Left = 120
lbl(IND).Top = lbl(IND - 1).Top + lbl(IND - 1).Height + 45
lbl(IND).Width = lbl(IND).Width
lbl(IND).Caption = "Indice: " & IND
lbl(IND).Visible = True
'PARA EL TEXTBOX
IND = txt.UBound + 1
Load txt(IND)
txt(IND).Left = 2160
txt(IND).Top = txt(IND - 1).Top + txt(IND - 1).Height + 45
txt(IND).Width = txt(IND).Width
txt(IND).Text = "Indice: " & IND
txt(IND).Visible = True
'PARA EL COMMAND
cmd.Top = txt(IND).Top + txt(IND).Height + 45
'PARA LA FORMA
If Me.WindowState = 0 Then If cmd.Top >= 2580 Then Me.Height = Me.Height + cmd.Height
End Sub
Nos cuentas!!