Olá, amigo!
Faça um teste com esses passos:
1. Crie num form um menu chamado "Arquivo" e nele um submenu, chamado-o,
por exemplo, de "ListaArqs".
2. Coloque 0 (zero) na propriedade 'Index' e 'Opção 1' na propriedade
'Caption' de 'ListaArqs' . (Faça-o no próprio Menu Editor.)
3. Coloque num 'CommandButton' o seguinte código:
Load ListaArqs(ListaArqs.UBound + 1) '--- Cria um novo submenu ---
ListaArqs(ListaArqs.UBound).Caption = "Opção " & ListaArqs.UBound + 1
ListaArqs(ListaArqs.UBound).Visible = True
Pronto! Vá calicando no 'Command' e veja um novo submenu sendo criado a
cada clique.
É dessa forma que se cria objetos em 'run-time' no VB. Adapte o código a sua
necessidade.
"Quando se rouba de um autor, chama-se plágio; quando se rouba de muitos,
chama-se pesquisa." (Wilson Mizner)
Joseph
Técnico em Informática, programador e futuro filósofo
São Paulo/SP
<
jsff77@hotmail.com>
