DIMENSION gaMyArray(5) FOR gnCount = 1 to 5 STORE gnCount TO gaMyArray(gnCount) NEXT thisForm.List1.RowSourceType = 5 thisForm.List1.RowSource = "gaMyArray" thisform.list1.additem(gaMyArray(1,1)) thisform.list1.additem(gaMyArray(1,2)) thisform.list1.additem(gaMyArray(2,1)) thisform.Refresh thisform.list1.Requery() ?thisForm.List1.Value