Dim myArr() As String = {"RED", "orange", "yellow", "RED", "green", "blue", "RED", "indigo", "violet", "RED"} myCol.AddRange(myArr)
alines(myArr,; "RED,orange,yellow,RED,green,blue,RED,indigo,violet,RED", ; .t.,",") * for each ... * for ix = 1 to ... * ascan(myArr, ... * dimension ...,acopy(),asort(), ains(),adel(), ... dimension myArr[alen(myArr),1] create cursor myStringcollection (myString c(254)) append from array myArr * and use powerfull cursor based operations which cover all and more of StringCollection membersAlso, though weird, a combobox class could be initialized with a RowSourceType of value and RowSource = commma separated string list. It works exceptionally fast if strings are small and the listcount is not huge.