6 53 1 VB Example

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