Passando referência de controle Menu VB6

[Gilson Freitas 0]

Olá galera, o problema é o seguinte:Possuo uma tabela com os nomes dos menus.Carrego uma variável String com um destes nomes.Em um dos menus eu tenho uma sub:Private Sub mnuLancto_Click() MsgBox "Acesso Negado!", vbInformation + vbOKOnly, "Teste"End SubNo caso o nome deste menu é mnuLancto.Como faço para referênciar esta sub através da variável String.Fiz um teste, mas não funcionou:Dim m as MenuDim Varmenu as StringvarMenu = "mnuLancto"set m = varMenum_ClickSe alguém souber como fazer, por favor me ajudem ! ObrigadoGilson

[slype 1]

voce não pode passar Varmenu como String... tem que declarar como o tipo do objeto para funcionar a Referencia!!!no seu caso é:Dim Varmenu As Menufalowww.. ate+

[Luizgrs 0]

Assim pode funcionar:

UsaMenu "mnuteste"Public Sub UsaMenu(nome as string)For Each Control In Form1.Controls	If Control.Name = nome Then		'o obejto control é o seu menu....	End IfNextEnd Sub

desse jeito funciona, mas não sei se é a melhor maneira ou a única...