>>*** Form Init Event >> >>#define BADOS_LOC "This sample only runs on Windows 2000 or higher." >>#define FORM_OPAQUE 255 >>#define FORM_FULLTRANSPERANT 0 >>#define FORM_HALFTRANSPERANT 127 && Almost half :o) >> >>IF VAL(OS(3))<5 >> MESSAGEBOX(BADOS_LOC) >> RETURN .F. >>ENDIF >>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) >>_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, FORM_OPAQUE, 2) && Opaque form >> >>*** or >>_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, FORM_FULLTRANSPERANT, 2) && Full Transperant form >> >>*** or >>_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, FORM_HALFTRANSPERANT, 2) >>>>