LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL m.lcName, m.lcFInd

m.lcName = IIF(TYPE("THISFORM.ActiveControl") == "O", UPPER(THISFORM.ActiveControl.Name), "")
WITH THISFORM
	DO CASE
		CASE (m.nKeyCode =  6 ) AND (m.nShiftAltCtrl =  2 ) AND (m.lcName == "MYEDITBOX")
			*-- Поиск. Ну например так:
			m.lcFInd = ""
			m.lcFInd = INPUTBOX("Что ищем", "ПОИСК",  m.lcFInd,  0 , "","")
			IF !EMPTY(m.lcFInd)
				*-- Ищем позицию в тексте в .MyEditBox.Value
				m.lnPos = ATC(m.lcFInd, .MyEditBox.Value)
				IF m.lnPos >  0 
					WITH .MyEditBox
						.SelStart = m.lnPos
						.SelLength = LEN(m.lcFInd)
					ENDWITH
				ENDIF
			ENDIF
			NODEFAULT
		OTHERWISE
			DODEFAULT(m.nkeycode, m.nshiftaltctrl)
	ENDCASE
ENDWITH