You can have a little fun with Vista Aero using the DwmExtendFrameIntoClientArea function.

 

This will cause the VFP border to paint the glass effect around the fox border

 

DECLARE integer DwmExtendFrameIntoClientArea  IN dwmapi integer hWnd, string  @ daMargins

 

cStr=REPLICATE(BINTOC(100,"4rs"),4)

_screen.BackColor=0

_screen.ForeColor=-1

DwmExtendFrameIntoClientArea (_vfp.HWnd, @cStr)

RETURN

 

 

 

 

For your own forms, try this:

 

 

 

 

PUBLIC x

x=CREATEOBJECT("myForm")

x.show

DEFINE CLASS MyForm  AS Form

      ShowWindow= 2     && top level form

      PROCEDURE Init

            DECLARE integer DwmExtendFrameIntoClientArea  IN dwmapi integer hWnd, string  @ daMargins

            cStr=REPLICATE(BINTOC(100,"4rs"),4)

            this.BackColor=0

            this.ForeColor=-1

            DwmExtendFrameIntoClientArea (this.HWnd, @cStr)

 

ENDDEFINE

 

 

 

 

 

 

For more fun, stay tuned…