Func _FadeIn($WINTITLE,$WINTEXT,$SPEED,$LIMIT = 255)
	
	$TRANSPARENCY=WinGetTrans($WINTITLE)
	
	For $TRANSPARENCY = 0 To $LIMIT Step +$SPEED
		WinSetTrans($Wintitle,$WINTEXT,$TRANSPARENCY)
	Next
	
EndFunc

Func _FadeOut($WINTITLE,$WINTEXT,$SPEED,$LIMIT = 0)
	
	$TRANSPARENCY=WinGetTrans($WINTITLE)

	For $TRANSPARENCY = 255 To $LIMIT Step -$SPEED
		WinSetTrans($WINTITLE,$WINTEXT,$TRANSPARENCY)
	Next
	
EndFunc

Func WinGetTrans($WINTITLE, $WINTEXT = "")
    Local $hWnd = WinGetHandle($WINTITLE, $WINTEXT)
    If Not $hWnd Then Return -1
    Local $val = DllStructCreate("int")
    Local $aRet = DllCall("user32.dll", "int", "GetLayeredWindowAttributes", "hwnd", $hWnd, "ulong_ptr", 0, "int_ptr", DllStructGetPtr($val), "ulong_ptr", 0)
    If @error Or Not $aRet[0] Then Return -1
    Return DllStructGetData($val, 1)
EndFunc