Func _FADEIN($WINTITLE,$TEXT,$DELAY,$MAXLIMIT = 255)
	$TRANSPARENCY=0
	
	For $TRANSPARENCY = 0 To 255 Step +5
		WinSetTrans($Wintitle,$TEXT,$TRANSPARENCY)
		Sleep($Delay)
	Next

EndFunc

Func _FADEOUT($WINTITLE,$TEXT,$DELAY,$MINLIMIT = 0)
	
	$TRANSPARENCY=255

	For $TRANSPARENCY = 255 To 0 Step -5
		WinSetTrans($WINTITLE,$TEXT,$TRANSPARENCY)
		Sleep($Delay)
	Next
	
EndFunc