Hey all.

Mike Stewart at MS came up with some fun, possibly useful, UI code that runs under Windows 2000 and sent it to me. I passed it along to George Tasker who made sure that it worked right using Foxtools.

Here is the result. Try it! (It REQUIRES Windows 2000)

DEFINE CLASS cfrmshadow AS form
   ShowWindow = 2
   DoCreate = .T.
   Caption = "Form2"
   HWnd = 0
   PROCEDURE Init
      IF ! 'FOXTOOLS' $ SET('LIBRARY')
         SET LIBRARY TO FOXTOOLS.FLL
      ENDIF
      DECLARE SetWindowLong In Win32Api Integer, Integer, Integer
      DECLARE SetLayeredWindowAttributes In Win32Api Integer, String, Integer, Integer
      DECLARE GetWindowLong In Win32Api Integer, Integer
      ThisForm.HWnd = _WhTohWnd(_WFindTitl(ThisForm.Caption))
      SetWindowLong(ThisForm.HWnd, -20, 0x00080000)
      SetLayeredWindowAttributes(ThisForm.HWnd, 0, 120, 2)
   ENDPROC
ENDDEFINE

Run this code and then .....

oForm=CREATEOBJECT(cfrmshadow)

Let me know what you think!