>>You may check for
>>WExist('Find')=.t.
>>before sending search string.
>>By doing it by Timer you will ensure correct sequence.
>
>Works like a charm. I created timer timerFINDDialog with Interval = 100 and Timer event=
>
>if !WEXIST('Find')
> CLEAR TYPEAHEAD
> KEYBOARD '{CTRL+F}'
>else
> KEYBOARD (thisform.csearchstring)
> KEYBOARD '{ENTER}'
> this.Enabled = .f.
>endif
>
>I call it from my Find button by..
>
>IF RECCOUNT('curs_sqlroutines')>0
>
>thisform.edtRoutine_Definition.SetFocus()
>thisform.timerFINDDialog.Enabled = .t.
>
>endif
>
>Seems completely reliable.
>
>Thanks!

You welcome. I also see that Borislav proposed very nice way (using sys(1500)) to use instead of Keyboard command.