Dont take this serious pls. I just gave the $ItemToRemove to remove as parameter. je je je.
Code:
 
;FUNCTION:      TrimArray()
;
;ACTION:        Removes given element of a given array.
;
;AUTHOR:        DON QUIJOTE DE LA MANCHA (Shawn Tassie)
;
;CONTRIBUTORS:  Some south basta
;
;DATE CREATED:  2004/07/30
;
;KIXTART:       any
;
;SYNTAX:        TrimArray($Array,$ItemToRemove)
;
;PARAMETERS:    $Array
;              Array from where you want to remove items
;
;              $ItemToRemove
;              Single Item to remove from array
;
;RETURNS:       New array without $ItemToRemove
;
;DEPENDENCIES:  none
;
;EXAMPLE:       Dim $y, $Array 
;			   $Array = "A1", "B2", "C3", "C4", "D5", "A1", "C1"
;			   $NewArray = TrimArray($Array,"A1")

Function TrimArray($Array,$ItemToRemove)
	Dim $i, $ar[Ubound($Array)]
	$i = 0
	For Each $Element In $Array
		If $Element<>$ItemToRemove
			$ar[$i] = $Element
			$i = $i + 1
		EndIf
	Next
	If $i
		ReDim PRESERVE $ar[$i-1]
	EndIf
	$TrimArray = $ar
EndFunction


_________________________
Life is fine.