EnableExplicit Define Text.s="NeuesWort" Define find.FINDTEXTEX If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) EditorGadget(1,10,10,480,230,0) SetGadgetText(1,"nope nope Hallo nope nope") find.FINDTEXTEX find\chrg\cpMin+0 find\chrg\cpMax=SendMessage_(GadgetID(1),#WM_GETTEXTLENGTH,0,0) find\lpstrText=@"Hallo" If Not SendMessage_(GadgetID(1),#EM_FINDTEXTEX,#FR_DOWN,@find) = -1 SendMessage_(GadgetID(1),#EM_EXSETSEL,0,find\chrgText) SendMessage_(GadgetID(1), #EM_REPLACESEL, 0 , @Text) EndIf Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf