code:

---

Break On
 
$Form = CreateObject("Kixtart.Form")
$Form.FontSize = 10
 
; Populate the ComboBox ...
 
$ComboBox = $Form.ComboBox
$ComboBox.Size = 100,100
$ComboBox.Center
$ComboBox.List = 2,4,6,8,10,12,14,16,18,20,22,24
 
; Collect the information ...
 
$Button = $Form.Button
$Button.Size = 100,30
$Button.Text = "Collect"
$Button.Center
$Button.Top = $ComboBox.Bottom + 10
$Button.OnClick = "Button_Click"
 
Function Button_Click
 
 ; Create array and populate ...
 
 Dim $Array[$ComboBox.ListCount]
 
 For $i = 0 to UBound($Array)
  $ComboBox.ListIndex = $i
  $Array[$i] = $ComboBox.Value
 Next
 
 ; Dump to console
 
 For Each $Element In $Array
  ?"Element=" $Element
 Next
 
EndFunction
 

$Form.Show
While $Form.Visible 
 $=Execute($Form.DoEvents) 
Loop

---

code:

---

 used drives combo		new drive combo
	e:		
					f:
					g:
					h:
	i:		
	j:
					k: 

---