*** 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)If you run the Solution Sample Example you will see how these functions are used in Change Event of Slider control (Olecontrol1).