EnableExplicit

Define SearchText.s="Hallo"
Define EventID
Define Range.CHARRANGE
Define Updown
Define findtext.FINDTEXTEX

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EditorGadget(1,10,40,480,200,0)
  SetGadgetText(1,"nope nope Hallo nope Hallo nope Hallo nope nope Hallo Hallo nope.")
  
  ButtonGadget(2,10,10,480,20,"Nach ''Hallo'' suchen/weitersuchen",0)
  
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Gadget
  Select EventGadget()
    Case 2
      SendMessage_(GadgetID(1),#EM_EXGETSEL,0,Range.CHARRANGE)
      Updown = 1 & 2147483647
      findtext.FINDTEXTEX
      If Updown
        findtext\chrg\cpMin = Range\cpMax
        findtext\chrg\cpMax=-1
      Else
        findtext\chrg\cpMin = Range\cpMin
        findtext\chrg\cpMax= 0
      EndIf
      findtext\lpstrText=@SearchText
      If SendMessage_(GadgetID(1),#EM_FINDTEXTEX,1,@findtext) <> -1
        SendMessage_(GadgetID(1),#EM_EXSETSEL,0,@findtext\chrgText)
      EndIf
  EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf