pb ON_MOUSE_UP / ON_MOUSE_DOWN

Dans ce code, 2 erreurs se produisent sans raisons apparentes (seul les sub diffèrent selon la variable "choix"):
ERREUR: List index out of bounds (-1) (sub avec boucle repeat/until)
ERREUR: (68) Label defined twice. Line : 3 (sub avec boucle while/end_while)

Code:: '

label clic_down,clic_up
dim MainMenuPop,i,j,k,choix,MyObjet

panel 1 : top 1,10 : left 1,10

MainMenuPop=10
main_menu_pop MainMenuPop
i=MainMenuPop
i=i+1 : sub_menu i : caption i,"Ligne_1" : parent i,MainMenuPop
i=i+1 : sub_menu i : caption i,"#" : parent i,MainMenuPop : hide i

'
on_mouse_down 1,clic_down

on_mouse_up 1,clic_up

caption 0,"Effectuez plusieurs clic droit sur l'objet (sans cliquer sur Ligne_1)"

' 1 = my_subA() :' ERREUR: List index out of bounds (-1)
' 2 = my_subB() :' ERREUR: (68) Label defined twice. Line : 3
choix=2

END
'
clic_down:
j=j+1
MyObjet = number_mouse_down
off_mouse_down MyObjet
   if choix = 1
   my_subA()
   else
   my_subB()
   end_if
on_mouse_down MyObjet,clic_down
caption 0,"down / "+str$(j)+" up / "+str$(k)
return

clic_up:
k=k+1
MyObjet = number_mouse_up
off_mouse_up MyObjet
   if choix = 1
   my_subA()
   else
   my_subB()
   end_if
on_mouse_up MyObjet,clic_up
caption 0,"down / "+str$(j)+" up / "+str$(k)
return

sub my_subA()
dim_local i
  i=MainMenuPop
  repeat
   i=i+1
  until i=MainMenuPop+2
end_sub

sub my_subB()
dim_local i
   i=MainMenuPop+1
   while caption$(i)<>"#"
   i=i+1
   end_while
end_sub

Elles sont de la même nature que celles-là