It works for me, though shadow is almost unnoticable:

Declare Long GetClassLong in User32 Long nhWnd, Integer nIndex
Declare Long SetClassLong in User32 ;
   Long nhWnd, Integer nIndex, Long dwNewLong

nDefaultStyle = GetClassLong( _VFP.hWnd, -26 )
SetClassLong( _VFP.hWnd, -26, BitOr( nDefaultStyle, 0x20000 ))
DO FORM testform
SetClassLong( _VFP.hWnd, -26, nDefaultStyle )
DO FORM testform

I'm not sure what you're saying and why you don't like it.

>We're done here
>
>
>>>huh??
>>>
>>>There is no mention of 'Herman' anywhere in this thread, save for your postings
>>>
>>Re: Sub form's shadow effect using shape object Thread #1129983 Message #1130132
>>
>>Are you saying you didn't read the thread I referred you to and ask to read the whole thread?