BOTÃO QUE CRIA DUAS FERRAMENTAS AO MESMO TEMPO

Question

Boa noite; alguém saberia informar qual é o erro do código abaixo?

PS: Conforme o título sugere, com um botão de comando eu crio duas ferramentas ao mesmo tempo

Private Sub CommandButton1_Click()

Set Mycmd = Controls.Add("Forms.CommandButton.1") ',"CommandButton2", Visible)

Mycmd.Left = 200
Mycmd.Top = 180
Mycmd.Width = 175
Mycmd.Height = 20
Mycmd.Caption = "This is fun." & Mycmd.Name

Set Mycmd = Controls.Add("Forms.ComboBox.1") ',"ComboBox2", Visible)

Mymcd.Left = 210
Mycmd.Top = 198
Mycmd.Width = 90
Mycmd.Heigt = 30
Mycmd.Caption = "STATUS." & Mycmd.Name

End Sub

Answer 1

Jhon_dantas,

    Criei um exemplo com "ComboBox", mas acredito que facilmente você pode trocar para botão... Por favor, veja meu código, você pode baixá-lo do VBMania:

=============================

CRIAR COMBOS DINAMICAMENTE
Cria combos virtuais apartir de uma combo real que pode ficar 'visible = false'. se você tem uma necessidade de criar um número indeterminado de combos para uma determinada opção escolhida pelo usuário, segue a dica.

http://www.vbmania.com.br/index.php?modulo=detalhe&id=9110

=============================

OBJETOS SEM REFERENCIA
Criando componentes no código fonte sem usar o 'project / components' (sem referenciar no projeto). exemplos de como usar 'licenses.add', 'vbcontrolextender' e o 'objectevent'. cria em run-time uma label e uma imagecombo.

http://www.vbmania.com.br/index.php?modulo=detalhe&id=7429

=============================

[]'s,
Fabio I.