Func _FADE($WINTITLE,$TEXT,$SPEED,$FADE)
	While $FADE = 1
		WinSetTrans($WINTITLE,"",0)
		GUISetState(@SW_Show)
		$TRANSPARENCY=0
	
		For $TRANSPARENCY = 0 To 255 Step +$SPEED
			WinSetTrans($Wintitle,$TEXT,$TRANSPARENCY)
			Sleep(10)
		Next
		ExitLoop
	WEnd
	
	While $FADE = 2
		$TRANSPARENCY=255
	
		For $TRANSPARENCY = 255 To 0 Step -$SPEED
			WinSetTrans($WINTITLE,$TEXT,$TRANSPARENCY)
			Sleep(10)
		Next
		ExitLoop
	WEnd
EndFunc