Code:
Function ShuffleArray($)
dim $i, $r, $s, $t

	$s=SRND(@MSECS)

	For $i = 0 to UBound($)
		$r = Rnd(ubound($))
		$t = $[$i]
		$[$i] = $[$r]
		$[$r] = $t
	Next

	$ShuffleArray = $

EndFunction