Clic droit non reconnu par le sous programme ON_CLICK !! ??

LABEL clic

BUTTON 1 : CAPTION 1,"CLIQUER ICI" : ON_CLICK 1,clic

END

clic:
   IF MOUSE_LEFT_DOWN(1)=1 THEN MESSAGE "CLIC GAUCHE" : '  REPONSE OK
   IF MOUSE_RIGHT_DOWN(1)=1 THEN MESSAGE "CLIC DROIT" : '  AUCUNE REPONSE !!
RETURN

rem ============================================================================
rem           Fonction GetAsyncKeyState de la user32.dll
rem ============================================================================

label quit
dim BoutonGauche%  : BoutonGauche%  = 1
dim BoutonDroit%   : BoutonDroit%   = 2
dim BoutonCentral% : BoutonCentral% = 4

button 10 : top 10,150 : left 10,200 : caption 10,"Sortir" : on_click 10,quit
dll_on "user32.dll"
Print " Cliquez où vous voulez (click gauche ou droit ou avec le bouton central)"
print " Pour sortir cliquez sur ....  sortir !!! "

while "PAPYDALL" <> "PANORAMIC"
   If dll_call1("GetAsyncKeyState",BoutonGauche%) > 0
      print_locate 100,200 : print "Bouton gauche cliqué"
   Else
      If dll_call1("GetAsyncKeyState",BoutonDroit%) > 0
         print_locate 100,200 :print  " Bouton droit Cliqué   "
      else
         If dll_call1("GetAsyncKeyState",BoutonCentral%) > 0
            print_locate 100,200 :print  " Bouton central Cliqué   "
         end_if
      End_If
   end_if
end_while

end

quit:
  dll_off
  terminate
rem ============================================================================

rem ' Démo différenciation simple_clic et double_clic
   dim cl : rem Paramètre de détermination du style de clic
   label clic : rem Cas où on simple-clique sur le rectangle
   label dblclic : rem Cas où on double-clique sur le rectangle
   label go : rem Exécute le simple-clic et le double-clic

alpha 10
   left 10,10
   top 10,10
   width 10,125
   height 10,75
   color 10,255,0,0
   on_click 10,clic
   on_double_click 10,dblclic
  
alpha 20
   left 20,150
   top 20,30
   caption 20,"Cliquez ou double-cliquez"+chr$(13)+"sur ce rectangle rouge"

timer 98
   timer_interval 98,300
   on_timer 98,go
   timer_off 98
  
end

clic:
   timer_on 98
   cl=cl+1
return

dblclic:
   cl=cl+1
return

go:
   if cl>0
      timer_off 98
      select cl
         case 1
            caption 0,"Simple clic"
            beep
         case 2
            caption 0,"Double clic"
      end_select
      cl=0
   end_if
return