в Init формы
#DEFINE LWA_COLORKEY    1
#DEFINE LWA_ALPHA        2

*Constants for SetWindowLong and GetWindowLong
#DEFINE GWL_EXSTYLE        -20
#DEFINE WS_EX_LAYERED    0x00080000

LOCAL lnFlags
*The form's window must be set to Layered, so that it is drawn
* in a separate layer.
lnFlags = GetWindowLong(.HWND, GWL_EXSTYLE)    &&Gets the existing flags from the window
lnFlags    = BITOR(lnFlags, WS_EX_LAYERED)            &&Appends the Layered flag to the existing ones
SetWindowLong(.HWND, GWL_EXSTYLE, lnFlags)        &&Sets the new flags to the window
SetLayeredWindowAttributes(.HWND, .BackColor, 100, LWA_ALPHA)

* Init method
this.adproperty('shadow',.null.)
DO form shadow name thisform.Shadow noshow linked with this

With this
    .shadow.width=.width+Sysmetric(3)
    .shadow.height=.height+Sysmetric(9)+Sysmetric(4)
    .shadow.top=.top+20
    .shadow.left=.left+20
    .shadow.visible=.t.
EndWith

thisform.form.show
NoDefault