I copied this following code from the VFP Samples.

It works in the sample, but I get no result in my form

The sample for is a top level form. Mine is not. When I
set mine to Top level, it works. I dont want a top
level form.

Anyone know what to do?

Form INIT

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, 255, 2)

Textbox Valid

*** ActiveX Control Event ***
LOCAL lnValue
DO CASE
CASE THIS.Value = 0
	lnValue = 0
CASE THIS.Value = 25
	lnValue = 255
OTHERWISE
	lnValue = THIS.Value * 10
ENDCASE

_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, lnValue, 2)

RETURN