You're welcome.

>Thanks, Sergey.
>
>Richard
>
>>Hi Richard,
>>
>>It works only if you use Additem() method to populate a ListBox. You can either use that or prefix items in the array with one space.

* Additem()
>>FOR i=1 TO ALEN(Thisform.aList,1)
>>	Thisform.aList[i,1] = STRTRAN(Thisform.aList[i,1], "\", "\\")
>>	This.AddItem(Thisform.aList[i,1])
>>ENDFOR
>>* Add leading space
>>FOR i=1 TO ALEN(Thisform.aList,1)
>>	Thisform.aList[i,1] = Space(1) + Thisform.aList[i,1]
>>ENDFOR
>>This.RowSourceType = 5
>>This.RowSource = "Thisform.aList"
>>