Marcia,
Great function. You can avoid any flicker of the title with this little change to the code;

>

...

*** Get the current Screen Caption
lcTitle = _Screen.Caption

<strong>_screen.LockScreen = .T.</strong>

*** Change it to avoid finding the current instance
_Screen.Caption = SYS(3)

*** Now locate another instance
lnHWND = FindApp( NULL, lcTitle )

*** And restore the original caption
_Screen.Caption = lcTitle

<strong>_screen.LockScreen = .F.</strong>

...