Pessoal, é o seguinte: tenho um menu no formulario MDI, preciso desabilitar certas opcoes quando o usuario loga no sistema, entao fiz uma rotina que percorre os objetos do formulario, se for um menu ele habilita ou desabilita a opcao, entao faço assim,

dim obj as object

'essa parte esta num loop

if obj is menu then

   obj.Visible = false

endif

tudo bem até ai, so que quando ele percorre e chega ao ultimo item de algum menu ele fala que nao pode habilitar essa propriedade para o objeto, mas ele faz em tudos , menos no ultimo item do menu.: exemplo:

arquivo

   arquivo 1

   arquiov 2

   arquivo 3

quando chega no terceiro ele da erro, alguem sabe me explicar o porque disso?

o engraçado é que antes funcionava , agora nao funciona mais.

 

ninguem gente?

será que ninguem sabe como resolver isso.?

a propriedade enable eu descobri qual é o erro, ela nao existe, o nome certo é enabled com o d no final, agora a propriedade visible ele nao aceita no ultimo da lista de cada item. da esse erro aqui: Run time error '387'
'visible' property can't be set on this control

You tried to set the Visible property to False for the Max remaining visible submenu on a parent menu.
You can't have a parent menu with no visible submenu items.

ninguem sabe porque a propriedade visible nao funciona no menu?

oi, voce ja tentou colocar o nome do menu junto com o nome do objeto.