dim items(10,7)
items(0,0)="cars"
items(0,1)="honda"
items(0,2)="gmc"
'and so on
' populate spinner1
for k=0 to 9
if items(k,0).length>0 then spinner1.add(items(k,0))
next
'-------
' then in spinner1_click
'populate spinner2
spinner2.clear
for k=1 to 6
if items(position,k).length>0 then spinner2.add (items(position,k))
next