*vfp9版本通过测试,把此段声明代码放入窗体的load事件中
Declare SetWindowLong In Win32Api Integer, Integer, Integer
Declare SetLayeredWindowAttributes In Win32Api Integer, String, Integer, Integer
*此段代码放入窗体的INIT事件中
SetWindowLong(THISFORM.HWND, -20, 0x00080000)
SetLayeredWindowAttributes(THISFORM.HWND, 0, 80, 2)&&80为透明度的值
