pb avec 'command' de LIBRARY : ne fonctionne plus

application_title "Test library"

label Traite_User_Event
dim wparam%,lparam%

 ' nouvelle commande utilisateur
 On_User_Event Traite_User_Event
 '
 wparam% = 12
 lparam% = 34
 SEND_EVENT("PANORAMIC V "+version$, wparam%, lparam%)
    
END
Traite_User_Event:
'  Off_User_Event  :' erreur(29) ---> Plus d'accès aux variables systèmes si "Off_User_Event"
  '
   select USER_EVENT_WPARAM
   case 12
      message "USER_EVENT_WPARAM = "+str$(USER_EVENT_WPARAM)+chr$(13)+chr$(10)+"USER_EVENT_LPARAM = "+str$(USER_EVENT_LPARAM)
   end_select
   '
'   On_User_Event Traite_User_Event
return


' SUB
sub SEND_EVENT(form_name$,value1%,value2%)
 dim_local hndl%
   if variable("event_index%")=0
      dim event_index%
      if variable("user32%")=0 then dim user32%
      event_index%=4024 : user32%=2   :' event_index% doit toujours avoir la valeur 4024
      ' cré la commande qui permet de déclencher un évènement
      LIBRARY user32%,"user32.dll"
      command "call_user_event","SendMessageA",user32%,"IIII","stdcall"
   end_if
  '
  ' déclenche l'évènement(Attention, c'est toujours et uniquement le form 0 de l'executable en cours qui active la commande 'on_user_event'!)
  hndl%=handle_form(form_name$)
  if hndl%<>0
     call_user_event hndl%,event_index%,value1%,value2%
  else
     ' ne rien faire
  end_if    
end_sub