Este exemplo requer windows 2000 ou superior.

Para tornarmos nosso form transparente é simples:
- Determine o formulário para ShowWindow=2

No LOAD do form determine:
#DEFINE BADOS_LOC "Recurso de transparência exclusivo para windows 2000 ou superior."

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

Agora determinamos ação de transparência:
_transp = 150 && Onde 255 é 100% de visibilidade e 0 é 0%:
_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, _transp, 2)

Um abraço.