Set propertie thisform.ShowWindow=2 - As Top-Level Form

#DEFINE BADOS_LOC "Exclusive to windows 2000 or higher."

IF VAL(OS(3))<5
MESSAGEBOX(BADOS_LOC)
RETURN .F.
ELSE
DECLARE SetWindowLong In Win32Api AS _Sol_SetWindowLong Integer, Integer, Integer
DECLARE SetLayeredWindowAttributes In Win32Api AS _Sol_SetLayeredWindowAttributes Integer, String, Integer, Integer
_Sol_SetWindowLong(THISFORM.hWnd, -20, 0x00080000)
ENDIF

Transparency:
_transp = 150 && 255=100% visible and 0=0% visible:
_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, _transp, 2)

One I hug.