>>*-- Fill the list adding the image.
>>With ThisForm.lstMembers
>>        lnPos = 0
>>	Scan all
>>                lnPos = lnPos + 1
>>		.AddListItem(Members.Name, Members.iiD, 1)
>>		.AddListItem(Transform(Members.iiD), Members.iiD, 2)
>>		.Picture[lnPos] = Iif(Empty(Members.cEmail), "BlankClip.bmp", "PaperClip.bmp")
>>	EndScan
>>EndWith