; Nico
  ; la commande #EM_SETSEL sert à sélectionner du Texte dans le string,
  ; elle peut aussi servir à positionner le curseur
 
  If OpenWindow(0, 0, 0, 322, 100, #PB_Window_SystemMenu|#PB_Window_ScreenCentered, "StringGadget Flags") And CreateGadgetList(WindowID(0))
    StringGadget(0, 8, 10, 306, 20, "Le curseur va se positionner ici:<----")
    ButtonGadget(1, 8, 60, 100, 20, "popo")
     
    Repeat
      EventID.l = WaitWindowEvent()
      Select EventID
        Case #PB_EventGadget
          Select EventGadgetID()
            Case 1
              ; Positionner le curseur
              ; Important activer le gadget avant!
              ActivateGadget(0)
              longueur = Len(GetGadgetText(0))
              SendMessage_(GadgetID(0), #EM_SETSEL, longueur - 5, longueur - 5)
              Debug longueur - 5
             
              ; Récupérer la position du curseur
              SendMessage_(GadgetID(0), #EM_GETSEL, @debut, @fin)
              Debug debut
              Debug fin
          EndSelect
         
        Case #WM_CLOSE
          Quit = 1
      EndSelect
    Until Quit = 1
  EndIf