>
> Russel,
> Here what I use when I run a query against Native VFP data.
>

> SqlProgress(.t.)
> SELECT ........
> SqlProgress(.f.)
> 
> 
> FUNCTION SqlProgress(lbShowProgress)
>    IF m.lbShowProgress
>       DEFINE WINDOW WndGlass FROM -100,-100 TO -10,-10
>       SET TALK ON WINDOW WndGlass
>       SET TALK ON
>       SET NOTIFY ON
>    ELSE
>       RELEASE WINDOWS WndGlass
>       SET TALK ON WINDOW
>       SET TALK OFF
>       SET NOTIFY OFF
>    ENDIF
> RETURN ""
> 

>
>
>
>
> -----------------
> Borislav Borissov
>
>

Borislav,

That is a beautiful solution.

It forces "Running query ..." to show itself right in the middle of the screen.

This is excellent for my long queries.

My rating to you.

Russell.