Olecontrol1
--------------------------------------------------------------------
*** 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)
--------------------------------------------------------------------------
Download Program klik disini