Barre de menu suite

[antoine cretaux <antoine at cretaux dot com>]

Cela ne marche pas.
Si je crée un item par défaut avec index = 0 il apparait correctement  
et possede bien un Menu Handler.
Lorsque l'on ouvre celui ci on constate bien qu'un index est disponible
Le probleme est que cet index est toujours à 0.
il suffit de mettre un MsgBox = Str(index)
Le message ne s'affiche que si l'on choisit l'item 0 du menu.  
Autrement rien ne se passe
Dans l'open de mon appli (je ne travaille plus avec les fontes mais  
un dossier conteant des éléments) Le principe reste le meme
  Dim i as integer
  Dim Dossier as folderitem
  Dim Monmenu as  menuitem
  Dossier = getfolderItem("Modèles")
  For i =  ModelesMenu.count-1 downto 1
    ModelesMenu.Remove i
  Next

  ModelesMenu.item(0).text = "garage"

  //== Je fabrique le menu
  For i =1 to Dossier.count
    if left(Dossier.item(i).displayName,1) <> "." then
      Monmenu = new menuitem
      MonMenu.text= Dossier.item(i).name
      MonMenu.enabled = true
      ModelesMenu.Append(Monmenu)
    End if
  Next


Merci