Bonsoir tous le monde

Mon pti probeme c'est quand je veux recupet l'arborescence du menu de mon projet

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 For Each ctrl In Me.Controls
    If (TypeOf ctrl Is Menu) Then
       strMenu = ctrl.Name
       MsgBox strMenu
    End If
  Next ctrl
avec ce code j'ai tous les menu et les sous menu mais je ne peux pas savoir l'orde d'arborescence

Merci d'avance