C'est bon, j'ai trouvé, merci quand même.
Voilà le code que j'ai utilisé :
' Chargement des sous menus :
smnuSousMenu(0).Caption = "Menu1"
smnuSousMenu(0).Visible = True
Load smnuSousMenu(1)
smnuSousMenu(1).Caption = "Menu1"
smnuSousMenu(1).Visible = True
Load smnuSousMenu(2)
smnuSousMenu(2).Caption = "Menu2"
smnuSousMenu(2).Visible = True
' Affichage
PopupMenu mnuContextuel
' Libère :
Unload smnuSousMenu(1)
Unload smnuSousMenu(2)
Message édité par skyw4lkr le 08-06-2004 à 14:29:20