Preciso, ler todos os itens do menu que esta no form mdi, se possível, pegar o name e caption. Seria para jogar em um listview, para controlar o nivel de acesso dos usuários.

Vou te passar como pegar o nome de todos os menus, agora o resto vc tem que estudar um pouco, listview e treeview exigem um pouco de estudo, não são simples controles.

    dim a as integeg

    For A = 0 To Me.Controls.Count - 1
        If UCase(TypeName(Me.Controls(A))) = "MENU" Then
            MsgBox Me.Controls(A).Name
            MsgBox Me.Controls(A).Caption
        End If
    Next

No caso o meu eu fiz com treeview, eu agrupei eles por modulos, vc clica no menu que deseja por acesso (tipo um check), acho que ele roda melhor que o listview para o q deseja fazer....

 

Vc acha sobre treeview em www.macorrati.net

 

T+

Tranquilo, listview eu uso no dia a dia. só precisava pegar os itens do menu. Valeu.