code:

---

Function CommandButton1_Click()
 
 $ListBox1.AddItem(RND(9))
 
 $ListBox1.ListIndex = $ListBox1.ListCount - 1
 
EndFunction

---

code:

---

Function StripCopies($striArray) 
$on = 1 
Dim $searArr,$a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,
$q,$r,$s,$t,$u,$v,$w,$x,$y,$z,$0,$1,$2,$3,$4,$5,$6,$7,$8,$9
For Each $add in $StriArray
	$dyn = SubStr($add,1,1) 
	$nul = Execute('if ubound($$$dyn) = -1  
		ReDim $$$dyn[0] $$$dyn[Ubound($$$dyn)] = $$add 
	EndIf
	$$counter = 0
	While Ubound($$$dyn)+1 <> $$counter
		If $$add = $$$dyn[$$counter]
			$$on = 1
		EndIf
		$$counter = $$counter+1
	Loop
		$$counter = 0
		If $$on = 0 
			ReDim preserve $$$dyn[Ubound($$$dyn)+1] 
			$$$dyn[Ubound($$$dyn)] = $$add 
		EndIf') 
		$on = 0
Next
$ProgComp.Value = 0 
$ProgSoft.Value = 0
$count = 48
While $count <> 91  $dyna = Chr($count)
	$nul = Execute('for each $$addto in $$$dyna
		ReDim preserve $$seararr[Ubound($$seararr)+1]
		$$seararr[Ubound($$seararr)] = $$addto
	Next')
	$count = $count + 1
	If $count = 58
		$count = $count + 7
	EndIf
Loop
$StripCopies = $SearArr 
EndFunction

---