*form.init select first_name-(' '+last_name) from employee into array arrSelections THISFORM._SuperMover1.InitChoices(@arrSelections)That's all.
select first_name-(' '+last_name) ; where first_name # 'A' ; from employee into array arrChoices && Not beginning with 'A' are choices select first_name-(' '+last_name) ; where first_name = 'A' ; from employee into array arrSelections && Beginning with 'A' are selected with THISFORM._SuperMover1 .sizetocontainer() .SortLeft = .t. && Sort choices .InitChoices(@arrChoices) .InitSelections(@arrSelections) endwithTo get selections back you use supermover's getselections method. ie:
* a commandbutton.click dimension arrWhatIsSelected[1] thisform._SuperMover1.GetSelections(@arrWhatIsSelected) if type('arrWhatIsSelected')='L' wait window 'Nothing selected' timeout 2 else activate screen clear for ix=1 to alen(arrWhatIsSelected) ? arrWhatIsSelected[ix] endfor endifCetin