CRIAR VÁRIAS FERRAMENTAS COM UM BOTÃO

14/02/2019

7

Bom dia;

Prezados, é possível criar um botão que quando pressionado crie inúmeras caixas de textos, combobox, entre outros, uma embaixo da outra?

PS: Aproveitando a pergunta; seria possível exceder os limites de espaço da userform? Porque quando eu crio manualmente essas ferramentas eu não consigo rolar pra baixo; OBS: eu consigo adicionar a barra de rolagem mas ela só rola após executar...

Em baixo segue um código que chega próximo, só que o que eu quero é uma caixa de texto, listbox, combobos, dentre outras, em baixo de outra;


Dim Mycmd As Control
Private Sub CommandButton1_Click()

Set Mycmd = Controls.Add("Forms.CommandButton.1") '', "CommandButton2", Visible)
Mycmd.Left = 18
Mycmd.Top = 150
Mycmd.Width = 175
Mycmd.Height = 20
Mycmd.Caption = "This is fun." & Mycmd.Name

End Sub

Private Sub UserForm_AddControl(ByVal Control As _
MSForms.Control)
Label1.Caption = "Control was Added."
End Sub
Responder