Dim iRet As Integer, iRecords As Integer, iCount As Integer, _
sBuff As String, lFlags As Long
iRet = LceSetSelectOptions(iSession, "*BACKWARDS, *MAXREC25")
iRet = LceSelect(iSession, "SURNAME, SALARY", "PSLMST", "", _
LceFalse, iRecords)
sBuff = space(256, chr(0))
For iCount=1 to iRecords
iRet = LceGetSelect(iSession, "PSLMST", iCount, "SURNAME")
iRet = LceGetFieldValueX(iSession, "SURNAME", sBuff, lFlags)
lstNames.AddItem sTrim (sBuff)
lstNames.ItemData (lstNames.NewIndex) = iCount
Next