Thanks for your help!! Hi Mike, another one.... function get6RandomNumbersFrom aList repeat 4 delete any item of aList end repeat return aList end get6RandomNumbersFrom on mouseUp put get6RandomNumbersFrom("1,2,3,4,5,6,7,8,9,10") into fld 1 end mouseUp Thierry Incredible solution, thanks a lot!!