>Hi Dawa
>
>The code worked on VFP 8.0 . Thanks alot.
>
>I have another application on VFP 6.0, for the code to work I need to get the forms window handle using the _WhToHwnd API function.
>I read about that fuction and still I did not know how to run it. Do you know how to fill the gap for the following code:
>
>
> IF VERSION(5) < 700
> *-- Need to get the forms window handle
> ELSE
> THIS.nHwnd = THIS.HWnd
> ENDIF
>
>
>Thanks
>
>Bob
>
>PS.
>
>My main problem is to change color of my form's Active title bar without doing any changes to my Windows Desktop appearance. Any suggestions

Bob,

First, it's not considered good form to change the user's preferences, including the color of the active window.

Second, in the following code, note the comment and the adjustment

IF VERSION(5) < 700
  SET LIBRARY TO FOXTOOLS
  This.hWnd = _WhTohWnd(_WFindTitl(This.Caption))
ELSE
  * This will throw an error since
  * the property is read-only
  THIS.nHwnd = THIS.HWnd
ENDIF